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