Move function fields outside equipment

src/Dodge/Cuse.hs

@@ -0,0 +1,9 @@
+module Dodge.Cuse where
+import Dodge.Data
+
+import Control.Lens
+
+useC :: Cuse -> Item -> Creature -> World -> World
+useC cu = case cu of
+    CDoNothing -> const $ const id
+    CHeal x -> const $ \cr -> creatures . ix (_crID cr) . crHP +~ x