Cleanup

src/Dodge/Data/Item/CurseStatus.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
+--{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Item.CurseStatus
+    where
+import GHC.Generics
+import Data.Aeson
+data CurseStatus 
+    = Uncursed 
+    | UndroppableIdentified 
+    | UndroppableUnidentified
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CurseStatus  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CurseStatus