Add exports

src/Dodge/Creature/Damage.hs

@@ -1,4 +1,4 @@
-module Dodge.Creature.Damage where
+module Dodge.Creature.Damage (applyCreatureDamage) where
 
 import Dodge.Creature.Material
 import Dodge.Creature.Mass
@@ -9,9 +9,6 @@ import Dodge.Spark
 import Geometry
 import LensHelp
 
-applyNoDamage :: [Damage] -> Creature -> World -> World
-applyNoDamage _ _ = id
-
 applyCreatureDamage :: [Damage] -> Creature -> World -> World
 applyCreatureDamage dms cr = case crMaterial (cr ^. crType) of
     Flesh -> defaultApplyDamage dms cr

src/Dodge/PosEvent.hs

@@ -1,4 +1,4 @@
-module Dodge.PosEvent where
+module Dodge.PosEvent (updatePosEvent) where
 
 import Control.Monad.State
 import Dodge.Data.World