Derive more type clases for PollStatus types

ozataman · Aug 27, 2014 · 5822933 · 5822933
1 parent 21e5942
commit 5822933
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Snap/Extras/PollStatus.hs b/src/Snap/Extras/PollStatus.hs
@@ -221,7 +221,7 @@ type JobId = Text
 ------------------------------------------------------------------------------
 -- | Enumeration of the states a job can be in.
 data JobState = Pending | Running | FinishedSuccess | FinishedFailure
-  deriving (Show,Eq)
+  deriving (Eq,Show,Read,Enum)
 
 
 ------------------------------------------------------------------------------
@@ -241,7 +241,7 @@ data Status = Status
     , statusMessages        :: [Text]
     , statusAmountCompleted :: Double
     , statusAmountTotal     :: Double
-    }
+    } deriving (Eq,Show)
 
 
 ------------------------------------------------------------------------------