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,10 +1,10 @@
-module Dodge.Magnet.Update
-    where
-import Dodge.Data.Magnet
+module Dodge.Magnet.Update where
+
 import Control.Lens
+import Dodge.Data.Magnet

 doMagnetUpdate :: MagnetUpdate -> Magnet -> Maybe Magnet
 doMagnetUpdate mu = case mu of
-    MagnetUpdateTimer i 
-        | i < 1     -> const Nothing
+    MagnetUpdateTimer i
+        | i < 1 -> const Nothing
        | otherwise -> Just . (mgUpdate .~ MagnetUpdateTimer (i - 1))