examples/Demo.hs

   1 {-# OPTIONS_GHC -XRankNTypes -XScopedTypeVariables -XFlexibleContexts -XModalTypes -XKindSignatures -fcoqpass -XMultiParamTypeClasses -dcore-lint #-}
   2 import GHC.HetMet.GArrow
   3 import GHC.HetMet.CodeTypes
   4 import GHC.HetMet.Private
   5 import GArrowTikZ
   6
   7 foo x = <[ ~~x ]>
   8
   9 main = tikz' $ pga_flatten . foo . pga_unflatten