1{-# LANGUAGE DoAndIfThenElse #-} 2module IfThenElseLayout where 3 4askCardsForExchange :: Hand -> IO [Card] 5askCardsForExchange h 6 = do putStrLn "Wich card do you want to exchange? (Max. 3)" 7 response <- getLine 8 if length (readCards response) > 3 || not (all (flip elem h) h) 9 then askCardsForExchange h else return (readCards response) 10