Cleanup

2026-04-04 20:55:39 +01:00
parent def204d211
commit b3b1fc6d87
2 changed files with 3 additions and 9 deletions
@@ -35,12 +35,6 @@ import RandomHelp
 import qualified SDL
 import ShortShow

-tocrs ::
-    ( IM.IntMap Creature ->
-      Const (Endo [String]) (IM.IntMap Creature)
-    ) ->
-    Universe ->
-    Const (Endo [String]) Universe
 tocrs = uvWorld . cWorld . lWorld . creatures

 testStringInit :: Universe -> [String]