Refactor clouds

src/Dodge/Update.hs

@@ -7,6 +7,7 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
+import Dodge.Cloud
 import Dodge.Creature.Radius
 import Dodge.Creature.Mass
 import Dodge.Damage
@@ -748,7 +749,7 @@ updateCloud w c
   where
     newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.001 * vertVel)
     newVel2 = stripZ newVel
-    vertVel = _clAlt c - opz
+    vertVel = clAlt c - opz
     springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
     oldPos@(V3 _ _ opz) = _clPos c
     oldPos2 = stripZ oldPos