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