Make thingsHit use streaming

2022-06-26 12:13:31 +01:00
parent f47059ae9b
commit 5ba0ca9f9c
8 changed files with 49 additions and 61 deletions
@@ -41,6 +41,6 @@ initialWorld = defaultWorld
    }

 testStringInit :: Configuration -> World -> [String]
-testStringInit _ w = [show $ _boundDist w]
+testStringInit _ _ = mempty
 --testStringInit = map (show . _drStatus) . IM.elems . _doors
 --testStringInit = const . const []