module Skat.Render where

import Data.List
import Data.Vector (Vector, toList)

import Skat.Card

render :: HasCard c => [c] -> IO ()
render = putStrLn . intercalate "\n" . zipWith (\n c -> show n ++ ") " ++ show c) [0..] . map toCard

renderVector :: Vector Card -> IO ()
renderVector = render . toList