hangman.hs

type Hangman = Char
singleton :: Char -> Hangman
singleton c = c

hangmanStdio :: Hangman -> IO()
hangmanStdio h = do
  putStrLn "Guess the character"
  l <- getLine
  let c = toLower $ head l
  if h == c
  then do
    putStrLn "Won"
    return ()
  else do
    putStrLn "Wrong"
    hangmanStdio h

main :: IO ()
main = hangmanStdio 'b'