diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-15 17:02:46 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-15 17:02:46 +0000 |
| commit | 294300ea870cc107541302ff1cb034a5ae092bbc (patch) | |
| tree | e4001948e3cb9a362591f627afb8d4edb204db15 /server | |
| parent | 33869e26481060ec7d5fa65ab1c7e67d96de2a8c (diff) | |
| download | thermoprint-294300ea870cc107541302ff1cb034a5ae092bbc.tar thermoprint-294300ea870cc107541302ff1cb034a5ae092bbc.tar.gz thermoprint-294300ea870cc107541302ff1cb034a5ae092bbc.tar.bz2 thermoprint-294300ea870cc107541302ff1cb034a5ae092bbc.tar.xz thermoprint-294300ea870cc107541302ff1cb034a5ae092bbc.zip | |
fixed typo
Diffstat (limited to 'server')
| -rw-r--r-- | server/src/Thermoprint/Server/API.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/API.hs b/server/src/Thermoprint/Server/API.hs index 7868f2c..cd4326e 100644 --- a/server/src/Thermoprint/Server/API.hs +++ b/server/src/Thermoprint/Server/API.hs | |||
| @@ -110,7 +110,7 @@ lookupPrinter pId = asks printers >>= maybePrinter' pId | |||
| 110 | maybePrinter' Nothing printerMap | 110 | maybePrinter' Nothing printerMap |
| 111 | | Map.null printerMap = left $ err501 { errBody = "No printers available" } | 111 | | Map.null printerMap = left $ err501 { errBody = "No printers available" } |
| 112 | | otherwise = return $ Map.findMin printerMap | 112 | | otherwise = return $ Map.findMin printerMap |
| 113 | maybePrinter (Just pId) printerMap | 113 | maybePrinter' (Just pId) printerMap |
| 114 | | Just printer <- Map.lookup pId printerMap = return (pId, printer) | 114 | | Just printer <- Map.lookup pId printerMap = return (pId, printer) |
| 115 | | otherwise = left $ err404 { errBody = "No such printer" } | 115 | | otherwise = left $ err404 { errBody = "No such printer" } |
| 116 | 116 | ||