Gunsmoke as clouds

src/Dodge/Data.hs

@@ -81,7 +81,7 @@ data World = World
                 , _tempLightSources :: ![TempLightSource]
                 , _closeActiveObjects :: [Either FloorItem Button]
                 , _remap            :: Keycode -> Keycode
-                } --deriving (Show)
+                } 
 
 data Corpse = Corpse
                 { _cpPos :: Point2
@@ -468,14 +468,13 @@ type HitEffect = Particle' -> [(Point2, (Either3 Creature Wall ForceField))] ->
                     -> (World,Maybe Particle')
 
 
-data Projectile = 
-    Projectile { _ptPos :: Point2
-             , _ptStartPos :: Point2
-             , _ptVel :: Point2
-             , _ptPict :: Picture
-             , _ptID :: Int
-             , _ptUpdate :: World -> World
-             }
+data Projectile = Projectile    { _ptPos :: Point2
+                                , _ptStartPos :: Point2
+                                , _ptVel :: Point2
+                                , _ptPict :: Picture
+                                , _ptID :: Int
+                                , _ptUpdate :: World -> World
+                                }
 
 data DamageType = Piercing {_dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Point2 , _dmTo :: Point2 }
                 | Blunt    {_dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Point2 , _dmTo :: Point2 }