View difference between Paste ID: qnMzrC5H and U6Y9fhiK

 module Main
 ( main
 ) where
 
 import           Data.Char
 import qualified Data.Set as S
 
 hangman :: String -> S.Set Char -> IO ()
 hangman word guessed = do
-    c <- getChar
+    if S.size guessed <= 8
-    if isAlpha c
+
             c <- getChar
-            let newGuessed = (S.insert c guessed)
+            if isAlpha c
-            putStrLn $ map (\c -> if c `S.member` newGuessed then c else '_') word
+                then do
-            putStrLn $ "Guessed: " ++ S.toList newGuessed
+                    let newGuessed = (S.insert c guessed)
-            putStrLn $ take 80 $ repeat '-'
+                    putStrLn $ map (\c -> if c `S.member` newGuessed then c else '_') word
-            putStrLn ""
+                    putStrLn $ "Guessed: " ++ S.toList newGuessed
                     putStrLn $ take 80 $ repeat '-'
-            if (S.fromList word) `S.isSubsetOf` newGuessed
+                    putStrLn ""
-                then putStrLn "You won!" >> return ()
+
-                else hangman word newGuessed
+                    if (S.fromList word) `S.isSubsetOf` newGuessed
-        else hangman word guessed
+                        then putStrLn "You won!"
                         else hangman word newGuessed
                 else hangman word guessed
         else putStrLn $ "You lost, you idiot. The word was: " ++ word
 
 main :: IO ()
 main = do
     hangman "hello" S.empty