From 294300ea870cc107541302ff1cb034a5ae092bbc Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 15 Feb 2016 17:02:46 +0000
Subject: fixed typo

---
 server/src/Thermoprint/Server/API.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
     maybePrinter' Nothing printerMap
       | Map.null printerMap = left $ err501 { errBody = "No printers available" }
       | otherwise = return $ Map.findMin printerMap
-    maybePrinter (Just pId) printerMap
+    maybePrinter' (Just pId) printerMap
       | Just printer <- Map.lookup pId printerMap = return (pId, printer)
       | otherwise = left $ err404 { errBody = "No such printer" }
 
-- 
cgit v1.2.3