jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented toB64

This commit is contained in:
Jonathan Lamothe 2018-12-21 17:32:06 -05:00
parent d53fde8c54
commit 42b49822cc
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
package.yaml
View File

@ -29,6 +29,7 @@ dependencies:
library:
source-dirs: src
dependencies:
- base64-bytestring
- SHA
- text

5
src/Password.hs
View File

@ -46,12 +46,13 @@ module Password (
import Control.Lens (makeLenses, over, set, (^.))
import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Base64.Lazy as B64
import Data.Char (isUpper, isLower, isDigit, isAlphaNum)
import Data.Digest.Pure.SHA
import qualified Data.Map as M
import Data.Maybe (fromMaybe)
import qualified Data.Text.Lazy as T
import Data.Text.Lazy.Encoding (encodeUtf8)
import Data.Text.Lazy.Encoding (decodeUtf8, encodeUtf8)
import System.Random (RandomGen, randoms, split)
-- | a mapping of service names to password data
@ -245,6 +246,6 @@ toUTF8 :: String -> B.ByteString
toUTF8 = encodeUtf8 . T.pack
toB64 :: B.ByteString -> String
toB64 = undefined
toB64 = T.unpack . decodeUtf8 . B64.encode
--jl