aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-03-01 10:36:13 +0100
committerGregor Kleen <gkleen@yggdrasil.li>2016-03-01 10:36:13 +0100
commit98c3756774df45817c479f1e09c5e9cb35503e84 (patch)
treeee5802ab7bf898f779246037a382700f957f782f
parenta6d63bdae8ca93f07724a9b100a5bd2094ad6971 (diff)
downloadthermoprint-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.hs2
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
47withInput (_, Stdin) = ($ stdin) 47withInput (_, Stdin) = ($ stdin)
48withInput (_, ReadFile f) = withFile f ReadMode 48withInput (_, ReadFile f) = withFile f ReadMode
49 49
50humanJobStatus :: JobStatus -> Maybe (Range PrinterId) -> String 50humanJobStatus :: JobStatus -> Maybe PrinterId -> String
51humanJobStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n 51humanJobStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n
52humanJobStatus (Queued _) _ = "queued" 52humanJobStatus (Queued _) _ = "queued"
53humanJobStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n 53humanJobStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n