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 | ||
