aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--server/src/Thermoprint/Server/Queue.hs2
-rw-r--r--spec/src/Thermoprint/API.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs
index a504292..832b876 100644
--- a/server/src/Thermoprint/Server/Queue.hs
+++ b/server/src/Thermoprint/Server/Queue.hs
@@ -40,9 +40,9 @@ import Data.Default.Class
40import Control.Monad 40import Control.Monad
41import Control.Monad.Morph 41import Control.Monad.Morph
42import Control.Monad.Trans.Compose 42import Control.Monad.Trans.Compose
43import Data.Foldable
44import Data.Function 43import Data.Function
45 44
45import Data.Foldable
46import Data.Monoid 46import Data.Monoid
47import Data.Ord 47import Data.Ord
48 48
diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs
index b27c0b5..6c020fc 100644
--- a/spec/src/Thermoprint/API.hs
+++ b/spec/src/Thermoprint/API.hs
@@ -57,10 +57,10 @@ data JobStatus = Queued PrinterId
57 | Printing PrinterId 57 | Printing PrinterId
58 | Done 58 | Done
59 | Failed PrintingError 59 | Failed PrintingError
60 deriving (Generic, Show, Read, FromJSON, ToJSON) 60 deriving (Generic, Show, FromJSON, ToJSON)
61 61
62data PrintingError = UnknownError 62data PrintingError = UnknownError
63 deriving (Typeable, Generic, NFData, Show, Read, FromJSON, ToJSON, Exception) 63 deriving (Typeable, Generic, NFData, Show, FromJSON, ToJSON, Exception)
64 64
65type DraftTitle = Text 65type DraftTitle = Text
66 66