Work towards making world read/showable

2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
@@ -0,0 +1,7 @@
+module Dodge.TestString where
+import Dodge.Data
+
+testStringInit :: Universe -> [String]
+testStringInit _ = []
+--testStringInit = map (show . _drStatus) . IM.elems . _doors
+--testStringInit = const . const []