1 files changed, 0 insertions, 23 deletions
diff --git a/examples/gadt-transfer/VeryFoods.hs b/examples/gadt-transfer/VeryFoods.hs
deleted file mode 100644
index ad6b6dc7f..000000000
--- a/examples/gadt-transfer/VeryFoods.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-{-# OPTIONS_GHC -fglasgow-exts #-}
-module Main where
-
-import PGF
-import Foods
-
--- example of using GADT: turn every occurrence of "boring" to "very boring"
-
-main = do
-  pgf <- readPGF "Foods.pgf"
-  interact (doVery pgf)
-
-doVery pgf s = case parseAllLang pgf (startCat pgf) s of 
-  (l,t:_):_ -> unlines $ return $ linearize pgf l $ gf $ veryC $ fg t
-
-veryC :: GComment -> GComment
-veryC = very
-
-very :: forall a. Foods.Tree a -> Foods.Tree a
-very t = case t of
-  GBoring -> GVery GBoring
-  _ -> composOp very t
-