Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,14 +1,16 @@
 module Dodge.Menu.PushPop where
-import Dodge.Data
+
+import Dodge.Data.Universe
 import LensHelp

 popScreen' :: Universe -> Maybe Universe
 popScreen' = Just . (menuLayers %~ tail)
+
 popScreen :: Universe -> IO (Maybe Universe)
 popScreen = return . popScreen'

-
 pushScreen' :: ScreenLayer -> Universe -> Maybe Universe
 pushScreen' ml = Just . (menuLayers .:~ ml)
+
 pushScreen :: ScreenLayer -> Universe -> IO (Maybe Universe)
 pushScreen ml = return . pushScreen' ml