madlang-2.3.0.5: test/Demo.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}

module Demo (
    runTest
  , runTestQQ ) where 

import Text.Madlibs
import qualified Data.Text as T

demo = $(madFile "test/templates/gambling.mad")

demoQQ = [madlang|
:define something
    1.0 "hello"
    1.0 "goodbye"
:return
    1.0 something|]

runTest :: IO T.Text
runTest = run demo

runTestQQ :: IO T.Text
runTestQQ = run demoQQ