1 files changed, 1 insertions, 1 deletions

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