8 lines
236 B
Haskell
8 lines
236 B
Haskell
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
module Dodge.Data.ItemAmount where
|
|
|
|
newtype IcAmount = IcAmount {_toInt :: Int}
|
|
deriving (Eq,Ord,Num,Integral,Real,Enum,Read)
|
|
instance Show IcAmount where
|
|
show (IcAmount i) = 'x':show i
|