Allow for door destruction

2022-06-19 20:50:03 +01:00
parent 9e311cccf4
commit 08e5df07e2
14 changed files with 82 additions and 42 deletions
@@ -62,7 +62,7 @@ applyTerminalCommandArguments :: String -> [String] -> Universe -> Universe
 applyTerminalCommandArguments command args u = case command of
    "ITEM" -> fromMaybe u $ do
        ibt <- safeHead args >>= readMaybe 
-        return $ u & uvWorld %~ createPutItem (itemFromBase ibt)
+        return $ u & uvWorld %~ (snd . createPutItem (itemFromBase ibt))
    _ -> u

 showTerminalError :: String -> String -> Universe -> Universe