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