From ab5802ad6d172adea49fc42edab9742551490be7 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Wed, 4 Nov 2015 11:10:01 +0300
Subject: Use top-level name Web

---
 src/ZeroBin/Utils.hs | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 src/ZeroBin/Utils.hs

(limited to 'src/ZeroBin/Utils.hs')

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
-
-- 
cgit v1.2.3