Use System.Hclip instead of System.Clipboard

src/Dodge/Data/Universe.hs

@@ -25,7 +25,6 @@ import Dodge.Data.Config
 import Dodge.Data.World
 import Loop.Data
 import Picture.Data
-import Linear
 --import SDL (Scancode)
 
 data Universe = Universe
@@ -50,16 +49,9 @@ data Universe = Universe
 
 data DebugItem = DebugItem
     { _debugMessage :: String
-    , _debugFunction :: String -> Universe -> Universe
+    , _debugFunction :: Universe -> Universe
     }
 
-data DebugInfo
-    = NoDebugInfo
-    | DebugV3 { _debugV3 :: V3 Float}
-    | DebugV2 { _debugV2 :: V2 Float}
-    | DebugMInt { _debugMInt :: Maybe Int}
-    | DebugIntMInt {_debugInt :: Int, _debugMInt :: Maybe Int}
-
 data SideEffect
     = NewSideEffect
         { _ceSideEffect :: IO (Universe -> Maybe Universe)
@@ -115,4 +107,3 @@ makeLenses ''MenuOptionDisplay
 makeLenses ''MenuOption
 makeLenses ''ExtraMenuOption
 makeLenses ''DebugItem
-makeLenses ''DebugInfo