Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -12,7 +12,7 @@ import Data.Maybe

 useItem :: Creature -> World -> World
 useItem cr' w = fromMaybe (f w) $ do
-    cr <- w ^? creatures . ix (_crID cr')
+    cr <-  w ^? creatures . ix (_crID cr')
    it <- cr ^? crInv . ix (_crInvSel cr)
    return $ itemEffect cr it w
  where