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