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,5 +2,6 @@
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.CrWlID where
 import Control.Lens
-data CrWlID = CrID Int | WlID Int | NothingID
+data CrWlID = CrID Int | WlID Int | NothingID  -- TODO rewrite/remove this
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''CrWlID