Cleanup

src/Dodge/Debug/Terminal.hs

@@ -54,7 +54,7 @@ applyTerminalCommandArguments command args u = case command of
   where
     ypoint = uvWorld . cWorld . lWorld . creatures . ix 0
 
-parseItem :: [String] -> Maybe (ItemBaseType, Int)
+parseItem :: [String] -> Maybe (ItemType, Int)
 parseItem (x : xs) =
     (readMaybe (x ++ " {_xNum=" ++ show (parseNum xs) ++ "}") <&> (,1))
         <|> (readMaybe x <&> (,parseNum xs))