aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Web/ZeroBin/Utils.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Web/ZeroBin/Utils.hs b/src/Web/ZeroBin/Utils.hs
index 915d8ad..8f29ec4 100644
--- a/src/Web/ZeroBin/Utils.hs
+++ b/src/Web/ZeroBin/Utils.hs
@@ -7,13 +7,11 @@ import Crypto.Random.Entropy (getEntropy)
import Data.ByteString (ByteString)
import Data.ByteString.Base64 (encode)
import Data.ByteString.Char8 (unpack)
-import Data.Char (isAlphaNum)
toWeb :: ByteString -> String
toWeb = takeWhile (/= '=') . unpack . encode
makePassword :: Int -> IO String
-makePassword n = (map (\c -> if isAlphaNum c then c else 'X')
- . toWeb) `fmap` getEntropy n
+makePassword n = toWeb `fmap` getEntropy n