/home/justin/Haskell/loop/src/Dodge/Item.hs:(29,25)-(35,40): warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In a case alternative: Patterns not matched: AMMOATTACH SHELLMAG
   |
29 | itemFromAttachType at = case at of
   |                         ^^^^^^^^^^...