Seperate libraries and some parser functionality

app/Main.hs

@@ -1,17 +1,13 @@
 module Main where
 
-import Data.Aeson
-import GHC.Generics
-import qualified Data.ByteString.Lazy as B
-import qualified Data.ByteString.Lazy.UTF8 as BSU
-import DND.Sheet
-import DND.Bob
+import DND.Sheet.Parser
 
 testfile :: FilePath
 testfile = "./example.json"
 
-createExample :: IO ()
-createExample = encodeFile testfile bob
-
 main :: IO ()
-main = createExample
+main = do
+    createExample testfile
+    sheet <- parseSheet testfile
+    putStrLn $ "wrote example character named \"" ++ getName sheet ++ "\" to: " ++ testfile
+    listSkills sheet