diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-04 19:07:03 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-04 19:07:03 +0000 |
| commit | f1ceaffc159fe7a591bfc615762867db3f6aa199 (patch) | |
| tree | 1e06ef0ab8458d4a38cc3075502743b43b3d5637 /server/src | |
| parent | c63f7ca27bf3a014dd501a6f58dc6a983251df4d (diff) | |
| download | thermoprint-f1ceaffc159fe7a591bfc615762867db3f6aa199.tar thermoprint-f1ceaffc159fe7a591bfc615762867db3f6aa199.tar.gz thermoprint-f1ceaffc159fe7a591bfc615762867db3f6aa199.tar.bz2 thermoprint-f1ceaffc159fe7a591bfc615762867db3f6aa199.tar.xz thermoprint-f1ceaffc159fe7a591bfc615762867db3f6aa199.zip | |
more docs
Diffstat (limited to 'server/src')
| -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 |