examples/DemoMain.hs

   1 {-# OPTIONS_GHC -dcore-lint #-}
   2 import Control.Category
   3 import GHC.HetMet.GArrow
   4 import GHC.HetMet.CodeTypes
   5 import GHC.HetMet.Private
   6 import GArrowTikZ
   7 import Demo
   8
   9 main = tikz' $ \const merge -> foo const (pga_comp (pga_second pga_cancelr) merge)