15 lines
285 B
Haskell
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
|