diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2015-11-04 11:10:01 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2015-11-04 11:17:05 +0300 |
| commit | ab5802ad6d172adea49fc42edab9742551490be7 (patch) | |
| tree | 9febbdec60779c5deb763d8ea023b55fed1abe76 /src/ZeroBin/Utils.hs | |
| parent | 5260b4b5d52cd7d7052c0fa980c048d857e2d14b (diff) | |
| download | zerobin-ab5802ad6d172adea49fc42edab9742551490be7.tar.gz | |
Use top-level name Web1.2.0
Diffstat (limited to 'src/ZeroBin/Utils.hs')
| -rw-r--r-- | src/ZeroBin/Utils.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/ZeroBin/Utils.hs b/src/ZeroBin/Utils.hs deleted file mode 100644 index 34871d2..0000000 --- a/src/ZeroBin/Utils.hs +++ /dev/null @@ -1,19 +0,0 @@ -module ZeroBin.Utils ( - toWeb -, makePassword -) where - -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 - |