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