diff --git a/src/Dodge/Creature/Damage.hs b/src/Dodge/Creature/Damage.hs
index ec4d1ed71..7b1d9e697 100644
--- a/src/Dodge/Creature/Damage.hs
+++ b/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
diff --git a/src/Dodge/PosEvent.hs b/src/Dodge/PosEvent.hs
index 049826e9a..48a7edfc0 100644
--- a/src/Dodge/PosEvent.hs
+++ b/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