module Main where

import DND.Sheet.Parser
import DND.Sheet.Pretty
import DND.Dice

testfile :: FilePath
testfile = "./example.json"

main :: IO ()
main = do
    sheet <- parseSheet testfile
    putStrLn $ "Loaded character named " ++ getName sheet
    print =<< rollCheck 2 Advantage