diff --git a/src/Dodge/Creature/Update.hs b/src/Dodge/Creature/Update.hs
deleted file mode 100644
index 859663989..000000000
--- a/src/Dodge/Creature/Update.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module Dodge.Creature.Update
-    ( unrandUpdate
-    ) where
-import Dodge.Data
-
-unrandUpdate :: (Creature -> World -> World) -> (Creature -> Maybe Creature) -> CRUpdate
-{-# INLINE unrandUpdate #-}
-unrandUpdate h cF cr _ = ( h cr , cF cr )