diff options
-rw-r--r-- | server/src/Thermoprint/Server/Queue.hs | 2 | ||||
-rw-r--r-- | spec/src/Thermoprint/API.hs | 4 |
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 | |||
40 | import Control.Monad | 40 | import Control.Monad |
41 | import Control.Monad.Morph | 41 | import Control.Monad.Morph |
42 | import Control.Monad.Trans.Compose | 42 | import Control.Monad.Trans.Compose |
43 | import Data.Foldable | ||
44 | import Data.Function | 43 | import Data.Function |
45 | 44 | ||
45 | import Data.Foldable | ||
46 | import Data.Monoid | 46 | import Data.Monoid |
47 | import Data.Ord | 47 | import 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 | ||
62 | data PrintingError = UnknownError | 62 | data PrintingError = UnknownError |
63 | deriving (Typeable, Generic, NFData, Show, Read, FromJSON, ToJSON, Exception) | 63 | deriving (Typeable, Generic, NFData, Show, FromJSON, ToJSON, Exception) |
64 | 64 | ||
65 | type DraftTitle = Text | 65 | type DraftTitle = Text |
66 | 66 | ||