From 98c3756774df45817c479f1e09c5e9cb35503e84 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 1 Mar 2016 10:36:13 +0100 Subject: fixed typo --- tprint/src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tprint/src') 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 withInput (_, Stdin) = ($ stdin) withInput (_, ReadFile f) = withFile f ReadMode -humanJobStatus :: JobStatus -> Maybe (Range PrinterId) -> String +humanJobStatus :: JobStatus -> Maybe PrinterId -> String humanJobStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n humanJobStatus (Queued _) _ = "queued" humanJobStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n -- cgit v1.2.3