Use System.Hclip instead of System.Clipboard

src/Dodge/Update/Input/DebugTest.hs

@@ -10,7 +10,7 @@ module Dodge.Update.Input.DebugTest (
 ) where
 
 import Text.Read
-import System.Clipboard
+import System.Hclip
 import Data.Aeson
 import AesonHelp
 import Control.Lens
@@ -71,8 +71,8 @@ doDebugTestF10 = uvIOEffects %~ \f u -> do
     f u
 doDebugTestF11 :: Universe -> Universe
 doDebugTestF11 = uvIOEffects %~ \f u -> do
-    x <- getClipboardString
-    case x >>= readMaybe of
+    x <- getClipboard
+    case readMaybe x of
         Nothing -> do
             putStrLn "read fail"
             f u