rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

replace m >>= return . f with fmap f m

Browse Source
This commit is contained in:
Rnhmjoj 2015-01-08 00:28:44 +01:00
parent 5880d11869
commit 7d95a3730c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
main.hs
View File

@ -17,11 +17,12 @@ data ProgArgs = ProgArgs
} deriving (Show) } deriving (Show)
parser :: IO (ParserSpec ProgArgs) parser :: IO (ParserSpec ProgArgs)
parser = path >>= \path -> return $ ProgArgs parser = (\path -> ProgArgs
`parsedBy` boolFlag "interactive" `Descr` "Manually insert numbers" `parsedBy` boolFlag "interactive" `Descr` "Manually insert numbers"
`andBy` optFlag path "dictionary" `Descr` "Specify dictionary file path" `andBy` optFlag path "dictionary" `Descr` "Specify dictionary file path"
`andBy` optFlag 6 "lenght" `Descr` "Number of words in a passphrase" `andBy` optFlag 6 "lenght" `Descr` "Number of words in a passphrase"
`andBy` optFlag 1 "phrases" `Descr` "Number of passphrases to generate" `andBy` optFlag 1 "phrases" `Descr` "Number of passphrases to generate")
<$> path
interface :: IO (CmdLnInterface ProgArgs) interface :: IO (CmdLnInterface ProgArgs)
interface = interface =
@ -39,7 +40,7 @@ path = getDataFileName "dict/diceware"
-- Read dictionary file -- Read dictionary file
readDict :: ProgArgs -> IO ProgArgs readDict :: ProgArgs -> IO ProgArgs
readDict args@ProgArgs{..} = readDict args@ProgArgs{..} =
readFile dictionary >>= \x -> return args {dictionary = x} (\x -> args {dictionary = x}) <$> readFile dictionary
-- Main function -- Main function
exec :: ProgArgs -> IO () exec :: ProgArgs -> IO ()