View difference between Paste ID: 7DCjukPT and a5dXGE46

 module Main
 ( main
 ) where
 
 import           Data.Char
 import           Data.Set (Set)
 import qualified Data.Set as S
 import           Control.Monad.Reader
 import           Control.Monad.IO.Class
 
 type Hangman a = ReaderT String IO a
 
 getFilteredChar :: (Char -> Bool) -> IO Char
 getFilteredChar p = do
     c <- getChar
     if p c
         then return c
         else getFilteredChar p
 
 printSeparator :: IO ()
-hangman :: Set Char -> ReaderT String IO ()
+
 
 hangman :: Set Char -> Hangman ()
 hangman g | S.size g < 8 = do
                 (g', won) <- guess g
                 printState g' >> (liftIO printSeparator)
                 if won then printWonMessage else hangman g'
-guess :: Set Char -> ReaderT String IO (Set Char, Bool)
+
 
 guess :: Set Char -> Hangman (Set Char, Bool)
 guess g = do
     w <- ask
     c <- liftIO $ getFilteredChar isAlpha
     let g' = S.insert c g
     return $ (g', guessed w g')
 
 guessed :: String -> Set Char -> Bool
-printGameOver :: ReaderT String IO ()
+
 
 printGameOver :: Hangman ()
 printGameOver = do
     w <- ask
-printWonMessage :: ReaderT String IO ()
+
 
 printWonMessage :: Hangman ()
-printState :: Set Char -> ReaderT String IO ()
+
 
 printState :: Set Char -> Hangman ()
 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"