Commits

Tony Morris  committed 55448bf

todo

  • Participants
  • Parent commits 320ec15

Comments (0)

Files changed (1)

File Cards/Poker/Score.hs

              High Rank Rank Rank Rank Rank -- all five
   deriving (Eq, Ord)
 
+-- todo show all ranks
 instance Show Score where
   show c = let s ! r = s ++ "{{ " ++ intercalate " " (show <$> r) ++ " }}"
            in case c of StraightFlush r ->       "Straight flush" ! [r]