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
     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" }