stack build
stack exec juno
# if get:
juno: dot: runInteractiveProcess: runInteractiveProcess: exec: does not exist (No such file or directory)
# then
brew install graphviz

---

TemplateHaskell notes

ghci -XTemplateHaskell
:set -XTemplateHaskell
:m + Language.Haskell.TH

:{
runQ [d| root                = rectangle    "rootName"                "rootLabel"
         rootX               = rectangle    "rootName"                "rootLabel" |]
:}

runQ [d| testing   = "rootName" ++ "rootLabel"     |]
runQ [d| testing x = "rootName" ++ "rootLabel" ++ x|]

runQ [| \x -> Prelude.concat [[1::Integer],[x]] |]