sheet-parser-hs/app/Main.hs

15 lines
285 B
Haskell

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