add Demo.hs

[coq-hetmet.git] / examples / Demo.hs

diff --git a/examples/Demo.hs b/examples/Demo.hs
new file mode 100644 (file)
index 0000000..74bbef0
--- /dev/null
+++ b/examples/Demo.hs
@@ -0,0 +1,10 @@
+{-# OPTIONS_GHC -XRankNTypes -XScopedTypeVariables -XFlexibleContexts -XModalTypes -XKindSignatures -fcoqpass -XMultiParamTypeClasses -dcore-lint #-}
+import GHC.HetMet.GArrow
+import GHC.HetMet.CodeTypes
+import GHC.HetMet.Private
+import GArrowTikZ
+
+foo x = <[ ~~x ]>
+foo' = unG . pga_flatten . foo . pga_unflatten
+--foo x z = <[ let y = ~~x in ~~z y y ]>
+main = tikz (foo' (PGArrowD { unG = TikZ_const 12 }))