16 lines
424 B
Haskell
16 lines
424 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module MyLib (genPassword) where
|
|
|
|
import Protolude
|
|
|
|
import Data.Char (chr,ord)
|
|
import qualified System.Random as Random
|
|
|
|
genPassword :: IO Text
|
|
genPassword = do
|
|
let stdgen = Random.mkStdGen 0
|
|
numbers = take 10 (Random.randoms stdgen)
|
|
password = toS [ chr ( (n `mod` 27) + ord 'a') | n <- numbers ]
|
|
return password
|