Cleanup

src/Dodge/Debug.hs

@@ -7,7 +7,6 @@ import Dodge.WorldBool
 import Dodge.Zoning.Pathing
 import Dodge.Door.DoorLerp
 import Dodge.ShiftPoint
-import Dodge.Path
 import Dodge.Zoning.Base
 import Control.Lens
 import Control.Monad
@@ -78,19 +77,21 @@ debugItem = \case
     Debug_put -> debugPutItems
 
 debugGet :: Universe -> [String]
-debugGet u = [maybe "DebugGetFail" show $ debugGet1 u
-    , maybe "DebugGetFail" show $ debugGet2 u
-    , maybe "DebugGetFail" show $ debugGet3 u
+debugGet u = [fromMaybe "DebugGetFail" $ debugGet1 u
+    , fromMaybe "DebugGetFail" $ debugGet2 u
+    , fromMaybe "DebugGetFail" $ debugGet3 u
     ]
 
 --debugGet1 :: Show a => Universe -> Maybe a
+debugGet1 :: Universe -> Maybe String
 debugGet1 u = do
     dr <- u ^? uvWorld . cWorld . lWorld . doors . ix 2
     let wlposs x = (dr ^. drFootPrint) & each . each %~ shiftPointBy (doDoorLerp dr x)
         ps = wlposs (dr ^. drLerp)
         is = foldMap (S.fromList . uncurry (zoneOfSeg peZoneSize)) ps
-    return $ S.toList is
+    return $ show $ S.toList is
 
+debugGet2 :: Universe -> Maybe String
 debugGet2 u = do
     let w = u ^. uvWorld
     dr <- u ^? uvWorld . cWorld . lWorld . doors . ix 2
@@ -107,7 +108,7 @@ debugGet2 u = do
         is = foldMap (S.fromList . uncurry (zoneOfSeg peZoneSize)) ps
     return $ show is
     
-
+debugGet3 :: Universe -> Maybe String
 debugGet3 u = do
     dr <- u ^? uvWorld . cWorld . lWorld . doors . ix 2
     let wlposs x = (dr ^. drFootPrint) & each . each %~ shiftPointBy (doDoorLerp dr x)
@@ -129,18 +130,20 @@ doDebugPut i u
     | u ^. uvWorld . input . mouseButtons . at SDL.ButtonLeft == Just 0 = u 
         & uvIOEffects %~ \ f u' -> do 
             s <- getClipboard
-            f $ u & uvDebugPut . at i ?~ s
+            f $ u' & uvDebugPut . at i ?~ s
     | otherwise = u
 
 debugPutDraw :: IM.IntMap String -> Universe -> Picture
 debugPutDraw _ u = drawthedoor u <> drawthezones u
 
+drawthezones :: Universe -> Picture
 drawthezones u = fold $ do
     is <- readMaybe =<< u ^? uvDebugPut . ix 0
     let f :: [Int2] -> [Int2]
         f = id
     return $ foldMap (drawZoneCol yellow peZoneSize) $ f is
 
+drawthedoor :: Universe -> Picture
 drawthedoor u = fold $ do
     dr <- u ^? uvWorld . cWorld . lWorld . doors . ix 2
     let wlposs x = (dr ^. drFootPrint) & each . each %~ shiftPointBy (doDoorLerp dr x)