This function is just `liftA2 (,)` so that's cool

1 files changed, 2 insertions, 1 deletions

diff --git a/rain/main.hs b/rain/main.hs
index 3c431a7..41ab03b 100755
--- a/rain/main.hs
+++ b/rain/main.hs
@@ -22,6 +22,7 @@ Suits: Clubs, Diamonds, Aces, Spades
 
 import System.Random
 import Control.Monad
+import Control.Applicative
 
 data Name
     = Two
@@ -53,7 +54,7 @@ suits :: [Suit]
 suits = [ Club .. ]
 
 allCards :: [(Name, Suit)]
-allCards = concat $ map (\n -> map (\s -> (n, s)) suits) names
+allCards = liftA2 (,) names suits
 
 data CardsGen = CardsGen
     deriving (Show)