Refactor modules

2021-07-25 01:29:43 +02:00
parent e453065afe
commit 84a9badea8
38 changed files with 77 additions and 48 deletions
@@ -3,6 +3,7 @@ module Dodge.LevelGen.MoveDoor
    where
 import Dodge.Data
 import Dodge.Base
+import Dodge.Base.Zone
 import Geometry

 import qualified Data.IntMap.Strict as IM
@@ -14,7 +15,7 @@ mvP !ep !p = mvPointTowardAtSpeed 2 ep p

 mvPs :: (Point2,Point2) -> (Point2,Point2) -> (Point2,Point2)
 {-# INLINE mvPs #-}
-mvPs !(!ex,!ey) !(!sx,!sy) = (mvP ex sx,mvP ey sy)
+mvPs (!ex,!ey) (!sx,!sy) = (mvP ex sx,mvP ey sy)

 moveDoorToward :: (Point2,Point2) -> Wall -> Wall
 {-# INLINE moveDoorToward #-}