{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Dodge.Data.ItemAmount where

newtype IcAmount = IcAmount {_toInt :: Int}
  deriving (Eq,Ord,Num,Integral,Real,Enum)
instance Show IcAmount where
    show (IcAmount i) = 'x':show i