Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -3,7 +3,7 @@ module Dodge.WorldEvent.Cloud

 import Dodge.Data
 import Dodge.Base
--import Geometry
+import Geometry.Data
 import Picture
 --import qualified IntMapHelp as IM

@@ -14,7 +14,7 @@ makeCloudAt rad t drawFunc p w = w & clouds %~ (theCloud :)
  where 
    theCloud = Cloud 
        { _clPos = p
-        , _clVel = (0,0)
+        , _clVel = (V2 0 0)
        , _clPict = drawFunc
        , _clRad = rad
        , _clTimer = t