18 lines
332 B
Haskell
18 lines
332 B
Haskell
|
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
|