Formatting and refactor

app/Main.hs

@@ -1,6 +1,7 @@
 module Main where
 
 import DND.Sheet.Parser
+import DND.Dice
 
 testfile :: FilePath
 testfile = "./example.json"
@@ -10,4 +11,4 @@ main = do
     createExample testfile
     sheet <- parseSheet testfile
     putStrLn $ "wrote example character named \"" ++ getName sheet ++ "\" to: " ++ testfile
-    listSkillNames sheet
+    mapM_ putStrLn . getSkillNames $ sheet