Cleanup

liamoc · Jun 16, 2012 · 5d67de0 · 5d67de0
1 parent bfa0859
commit 5d67de0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Examples.hs b/Examples.hs
@@ -10,7 +10,7 @@ passwordW realPassword =
  let 
  w = do validator (== realPassword) $ password "Enter password: " (Just '*') 
  outputLn "The secret is 42"
- in w <|> w <|> w <|> (outputLn "Password rejected. Goodbye!" >> mzero)
+ in w <|> w <|> w <|> (outputLn "Password rejected. Goodbye!")
 
 passwordW2 :: String -> Wizard b ()
 passwordW2 realPassword = (retryMsg "Incorrect password." 

diff --git a/README.md b/README.md
@@ -95,7 +95,7 @@ passwordW realPassword =
  let 
  w = do validator (== realPassword) $ password "Enter password: " (Just '*') 
  outputLn "The secret is 42"
- in w <|> w <|> w <|> (outputLn "Password rejected. Goodbye!" >> mzero)
+ in w <|> w <|> w <|> (outputLn "Password rejected. Goodbye!")
 
 main = runInputT defaultSettings $ runHaskeline $ passwordW "rosebud"