sheet-parser-hs/app/Main.hs

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