Continue work on bullet drawing

src/Dodge/Item/Info.hs

@@ -13,7 +13,7 @@ itemInfo itm = itmBaseInfo itm ++ " " ++ itmUsageInfo itm
     ++ itmModuleInfo (itm ^. itType . iyModules)
 
 itmSpaceInfo :: Item -> String
-itmSpaceInfo itm = case (ceiling $ _itInvSize itm) of
+itmSpaceInfo itm = case ceiling $ _itInvSize itm of
     1 -> " It takes up one inventory slot. "
     x -> " It takes up " ++ showInt x ++ " inventory slots. "
 
@@ -251,8 +251,8 @@ itmModuleInfo m
 
 makeCommaList :: [String] -> String
 makeCommaList [] = ""
-makeCommaList (x:[]) = x ++ "."
-makeCommaList (x:y:[]) = x ++ " and " ++ y ++ "."
+makeCommaList [x] = x ++ "."
+makeCommaList [x,y] = x ++ " and " ++ y ++ "."
 makeCommaList (x:xs) = x ++ ", " ++ makeCommaList xs
 
 moduleInfo :: ModuleSlot -> String