Use System.Hclip instead of System.Clipboard

src/Dodge/Menu.hs

@@ -26,7 +26,7 @@ import MaybeHelp
 import Padding
 import Preload.Update
 import qualified SDL
-import System.Clipboard
+import System.Hclip
 import System.Directory
 import Text.Read
 
@@ -95,8 +95,8 @@ seedStartOptions =
 
 trySeedFromClipboard :: Universe -> IO Universe
 trySeedFromClipboard u = do
-    mcstr <- getClipboardString
-    return $ case mcstr >>= readMaybe of
+    str <- getClipboard
+    return $ case readMaybe str of
         Nothing ->
             pushScreen
                 (seedStartMenu "CLIPBOARD UNUSABLE, NEED INTEGER")