From 6e89aaceb65815380f31674801dfebc084737ea2 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 11 Feb 2016 22:26:45 +0000
Subject: Fixed obvious mistake in key generation

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

(limited to 'server/src/Thermoprint')

diff --git a/server/src/Thermoprint/Server.hs b/server/src/Thermoprint/Server.hs
index 279991d..2dcb8e9 100644
--- a/server/src/Thermoprint/Server.hs
+++ b/server/src/Thermoprint/Server.hs
@@ -72,7 +72,7 @@ withPrinters cfg pss = (\map -> cfg { printers = map }) <$> foldlM (\map spec ->
   where
     nextKey map
       | Map.null map = 0
-      | otherwise    = succ . fst $ Map.findMin map
+      | otherwise    = succ . fst $ Map.findMax map
 
 thermoprintServer :: ( MonadLoggerIO m
                      , MonadReader ConnectionPool m
-- 
cgit v1.2.3