ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-11-09 23:24:46 +03:00
Code Issues Projects Releases Wiki Activity

Fix greet function in Hello example.

Browse Source
This commit is contained in:
Paolo Capriotti 2012-06-11 22:42:45 +01:00
parent b92be315c9
commit 4bee34ad4f
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -33,7 +33,7 @@ A parser can be used like this:
```haskell ```haskell
greet :: Sample -> IO () greet :: Sample -> IO ()
greet (Sample h True) = putStrLn $ "Hello, " ++ h greet (Sample h False) = putStrLn $ "Hello, " ++ h
greet _ = return () greet _ = return ()
main :: IO () main :: IO ()

2
optparse-applicative.cabal
View File

@ -28,7 +28,7 @@ description:
. .
@ @
greet :: Sample -> IO () greet :: Sample -> IO ()
greet (Sample h True) = putStrLn $ \"Hello, \" ++ h greet (Sample h False) = putStrLn $ \"Hello, \" ++ h
greet _ = return () greet _ = return ()
. .
main :: IO () main :: IO ()

2
tests/Examples/Hello.hs
View File

@ -18,7 +18,7 @@ sample = Sample
& help "Whether to be quiet" ) & help "Whether to be quiet" )
greet :: Sample -> IO () greet :: Sample -> IO ()
greet (Sample h True) = putStrLn $ "Hello, " ++ h greet (Sample h False) = putStrLn $ "Hello, " ++ h
greet _ = return () greet _ = return ()
main :: IO () main :: IO ()