View difference between Paste ID: YMu82ij9 and qnMzrC5H

 
 module Main
 ( main
 ) where
 
 import           Data.Char
 import           Data.Set (Set)
-hangman :: String -> S.Set Char -> IO ()
+
-hangman word guessed = do
+import           Control.Monad.Reader
-    if S.size guessed <= 8
+import           Control.Monad.IO.Class
-        then do
+
-            c <- getChar
+getFilteredChar :: (Char -> Bool) -> IO Char
-            if isAlpha c
+getFilteredChar p = do
-                then do
+    c <- getChar
-                    let newGuessed = (S.insert c guessed)
+    if p c
-                    putStrLn $ map (\c -> if c `S.member` newGuessed then c else '_') word
+        then return c
-                    putStrLn $ "Guessed: " ++ S.toList newGuessed
+        else getFilteredChar p
-                    putStrLn $ take 80 $ repeat '-'
+
-                    putStrLn ""
+printSeparator :: IO ()
 printSeparator = putStrLn $ take 80 $ repeat '-'
-                    if (S.fromList word) `S.isSubsetOf` newGuessed
+
-                        then putStrLn "You won!"
+hangman :: Set Char -> ReaderT String IO ()
-                        else hangman word newGuessed
+hangman g | S.size g < 8 = guess g
-                else hangman word guessed
+          | otherwise    = printGameOver
-        else putStrLn $ "You lost, you idiot. The word was: " ++ word
+
 guess :: Set Char -> ReaderT String IO ()
 guess g = do
-main = do
+    w <- ask
-    hangman "hello" S.empty
+    c <- liftIO $ getFilteredChar isAlpha
     let g' = S.insert c g
     printState g' >> (liftIO printSeparator)
     if guessed w g'
         then printWonMessage
         else hangman g'
 
 guessed :: String -> Set Char -> Bool
 guessed w g = (S.fromList w) `S.isSubsetOf` g
 
 printGameOver :: ReaderT String IO ()
 printGameOver = do
     w <- ask
     liftIO $ putStrLn $ "You lost. The word was: " ++ w ++ "."
 
 printWonMessage :: ReaderT String IO ()
 printWonMessage = liftIO $ putStrLn "Congratulations, komrad."
 
 printState :: Set Char -> ReaderT String IO ()
 printState g = do
     w <- ask
     liftIO $ do
         putStrLn $ map (\c -> if c `S.member` g then c else '_') w
         putStrLn $ "Guessed: " ++ S.toList g
 
 main :: IO ()
 main = liftIO $ runReaderT (hangman S.empty) "hello"