1 files changed, 0 insertions, 21 deletions
diff --git a/examples/tutorial/embedded/TransferLoop.hs b/examples/tutorial/embedded/TransferLoop.hs
deleted file mode 100644
index 58498da11..000000000
--- a/examples/tutorial/embedded/TransferLoop.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Main where
-
-import PGF
-import TransferDef (transfer)
-
-main :: IO () 
-main = do
-  gr <- readPGF "Query.pgf"
-  loop (translate transfer gr)
-
-loop :: (String -> String) -> IO ()
-loop trans = do 
-  s <- getLine
-  if s == "quit" then putStrLn "bye" else do  
-    putStrLn $ trans s
-    loop trans
-
-translate :: (Tree -> Tree) -> PGF -> String -> String
-translate tr gr s = case parseAllLang gr (startCat gr) s of
-  (lg,t:_):_ -> linearize gr lg (tr t)
-  _ -> "NO PARSE"