update demo

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

diff --git a/examples/DemoMain.hs b/examples/DemoMain.hs
new file mode 100644 (file)
index 0000000..d832b6e
--- /dev/null
+++ b/examples/DemoMain.hs
@@ -0,0 +1,9 @@
+{-# OPTIONS_GHC -dcore-lint #-}
+import Control.Category
+import GHC.HetMet.GArrow
+import GHC.HetMet.CodeTypes
+import GHC.HetMet.Private
+import GArrowTikZ
+import Demo
+
+main = tikz' $ \const merge -> foo const (pga_comp (pga_second pga_cancelr) merge)