Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -2,6 +2,6 @@
 module Dodge.Data.ItemAmount where

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