UωU -- Initial commit

app/Main.hs

@@ -0,0 +1,17 @@
+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
+
+testfile :: FilePath
+testfile = "./example.json"
+
+createExample :: IO ()
+createExample = encodeFile testfile bob
+
+main :: IO ()
+main = createExample