aboutsummaryrefslogtreecommitdiff
path: root/src/Sproxy/Server.hs
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2018-04-28 10:16:13 +0300
committerIgor Pashev <pashev.igor@gmail.com>2018-04-28 10:22:31 +0300
commitb425b5041cf784b7c24abcc82e5573cd79304bf7 (patch)
tree46bda435518bf4ae14729d86cf4e9fee473f2688 /src/Sproxy/Server.hs
parent5618374d41edc7fb1f8eaf5bf59c1ded97cbee8d (diff)
downloadsproxy2-b425b5041cf784b7c24abcc82e5573cd79304bf7.tar.gz
Use 64 bytes long key by default
It is padded with zeros to 64 bytes anyway if the length is less.
Diffstat (limited to 'src/Sproxy/Server.hs')
-rw-r--r--src/Sproxy/Server.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Sproxy/Server.hs b/src/Sproxy/Server.hs
index 809d242..6d8b19c 100644
--- a/src/Sproxy/Server.hs
+++ b/src/Sproxy/Server.hs
@@ -75,7 +75,7 @@ server configFile = do
db <- DB.start (cfHome cf) ds
key <-
maybe
- (Log.info "using new random key" >> getEntropy 32)
+ (Log.info "using new random key" >> getEntropy 64)
(return . pack)
(cfKey cf)
let settings =