Huge dangling commit

app/Main.hs

@@ -1,6 +1,7 @@
 module Main where
 
 import DND.Sheet.Parser
+import DND.Sheet.Pretty
 import DND.Dice
 
 testfile :: FilePath
@@ -8,7 +9,6 @@ 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
+    putStrLn $ "Loaded character named " ++ getName sheet
+    print =<< rollCheck 2 Advantage