15 lines
329 B
Haskell
15 lines
329 B
Haskell
module Main where
|
|
|
|
import DND.Sheet.Parser
|
|
import DND.Dice
|
|
|
|
testfile :: FilePath
|
|
testfile = "./example.json"
|
|
|
|
main :: IO ()
|
|
main = do
|
|
createExample testfile
|
|
sheet <- parseSheet testfile
|
|
putStrLn $ "wrote example character named \"" ++ getName sheet ++ "\" to: " ++ testfile
|
|
mapM_ putStrLn . getSkillNames $ sheet
|