Cleanup

src/Dodge/ItEffect.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 module Dodge.ItEffect (
     doInvEffect,
 ) where
@@ -7,7 +8,7 @@ import Dodge.Data.World
 import Dodge.Euse
 
 doInvEffect :: ItInvEffect -> Item -> Creature -> World -> World
-doInvEffect iie = case iie of
+doInvEffect = \case
     NoInvEffect -> const $ const id
     EffectRootNotroot f g -> rootNotrootEff f g
     CreateShieldWall -> createShieldWall