1{-# LANGUAGE DoAndIfThenElse #-} 2module IfThenElseLayout where 3 4askCardsForExchange :: Hand -> IO [Card] 5askCardsForExchange h = do 6 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) then 9 askCardsForExchange h 10 else 11 return (readCards response) 12 13