diff options
Diffstat (limited to 'server')
-rw-r--r-- | server/src/Thermoprint/Server/Queue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/Queue.hs b/server/src/Thermoprint/Server/Queue.hs index d2400a1..672d540 100644 --- a/server/src/Thermoprint/Server/Queue.hs +++ b/server/src/Thermoprint/Server/Queue.hs | |||
@@ -20,7 +20,7 @@ import GHC.Generics (Generic) | |||
20 | 20 | ||
21 | import Data.Default.Class | 21 | import Data.Default.Class |
22 | 22 | ||
23 | -- | Zipper for 'Seq QueueEntry' | 23 | -- | Zipper for 'Seq QueueEntry' with additional support for 'PrintingError' in the section after point |
24 | data Queue = Queue | 24 | data Queue = Queue |
25 | { pending :: Seq QueueEntry -- ^ Pending jobs, closest last | 25 | { pending :: Seq QueueEntry -- ^ Pending jobs, closest last |
26 | , current :: Maybe QueueEntry | 26 | , current :: Maybe QueueEntry |