Make displayed terminal text screen dragable

2026-04-05 23:45:38 +01:00
parent 017e92470e
commit ed28af8d11
11 changed files with 300 additions and 262 deletions
@@ -35,6 +35,9 @@ 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]