diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-11 22:26:45 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-11 22:26:45 +0000 |
| commit | 6e89aaceb65815380f31674801dfebc084737ea2 (patch) | |
| tree | f9c77cd04268516dca22ce5774ea62898d70a337 | |
| parent | 1422cdef307b2ac72dac69c547bc945d9ab70100 (diff) | |
| download | thermoprint-6e89aaceb65815380f31674801dfebc084737ea2.tar thermoprint-6e89aaceb65815380f31674801dfebc084737ea2.tar.gz thermoprint-6e89aaceb65815380f31674801dfebc084737ea2.tar.bz2 thermoprint-6e89aaceb65815380f31674801dfebc084737ea2.tar.xz thermoprint-6e89aaceb65815380f31674801dfebc084737ea2.zip | |
Fixed obvious mistake in key generation
| -rw-r--r-- | server/src/Thermoprint/Server.hs | 2 |
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 -> | |||
| 72 | where | 72 | where |
| 73 | nextKey map | 73 | nextKey map |
| 74 | | Map.null map = 0 | 74 | | Map.null map = 0 |
| 75 | | otherwise = succ . fst $ Map.findMin map | 75 | | otherwise = succ . fst $ Map.findMax map |
| 76 | 76 | ||
| 77 | thermoprintServer :: ( MonadLoggerIO m | 77 | thermoprintServer :: ( MonadLoggerIO m |
| 78 | , MonadReader ConnectionPool m | 78 | , MonadReader ConnectionPool m |