diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 10:36:13 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 10:36:13 +0100 |
| commit | 98c3756774df45817c479f1e09c5e9cb35503e84 (patch) | |
| tree | ee5802ab7bf898f779246037a382700f957f782f | |
| parent | a6d63bdae8ca93f07724a9b100a5bd2094ad6971 (diff) | |
| download | thermoprint-98c3756774df45817c479f1e09c5e9cb35503e84.tar thermoprint-98c3756774df45817c479f1e09c5e9cb35503e84.tar.gz thermoprint-98c3756774df45817c479f1e09c5e9cb35503e84.tar.bz2 thermoprint-98c3756774df45817c479f1e09c5e9cb35503e84.tar.xz thermoprint-98c3756774df45817c479f1e09c5e9cb35503e84.zip | |
fixed typo
| -rw-r--r-- | tprint/src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tprint/src/Main.hs b/tprint/src/Main.hs index 971e655..5b26bfe 100644 --- a/tprint/src/Main.hs +++ b/tprint/src/Main.hs | |||
| @@ -47,7 +47,7 @@ withInput :: Input -> (Handle -> IO a) -> IO a | |||
| 47 | withInput (_, Stdin) = ($ stdin) | 47 | withInput (_, Stdin) = ($ stdin) |
| 48 | withInput (_, ReadFile f) = withFile f ReadMode | 48 | withInput (_, ReadFile f) = withFile f ReadMode |
| 49 | 49 | ||
| 50 | humanJobStatus :: JobStatus -> Maybe (Range PrinterId) -> String | 50 | humanJobStatus :: JobStatus -> Maybe PrinterId -> String |
| 51 | humanJobStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n | 51 | humanJobStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n |
| 52 | humanJobStatus (Queued _) _ = "queued" | 52 | humanJobStatus (Queued _) _ = "queued" |
| 53 | humanJobStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n | 53 | humanJobStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n |