introduce stack build system and restructure code
This commit is contained in:
@@ -0,0 +1,8 @@
|
||||
module Skat.Render where
|
||||
|
||||
import Data.List
|
||||
|
||||
import Skat.Card
|
||||
|
||||
render :: [Card] -> IO ()
|
||||
render = putStrLn . intercalate "\n" . zipWith (\n c -> show n ++ ") " ++ show c) [0..]
|
||||
Reference in New Issue
Block a user