summaryrefslogtreecommitdiff
path: root/examples/tutorial/old/semantics/Answer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/tutorial/old/semantics/Answer.hs')
-rw-r--r--examples/tutorial/old/semantics/Answer.hs21
1 files changed, 0 insertions, 21 deletions
diff --git a/examples/tutorial/old/semantics/Answer.hs b/examples/tutorial/old/semantics/Answer.hs
deleted file mode 100644
index 08a76c5f1..000000000
--- a/examples/tutorial/old/semantics/Answer.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Main where
-
-import GSyntax
-import AnswerBase
-import GF.GFCC.API
-
-main :: IO ()
-main = do
- gr <- file2grammar "base.gfcc"
- loop gr
-
-loop :: MultiGrammar -> IO ()
-loop gr = do
- s <- getLine
- case parse gr "BaseEng" "Question" s of
- [] -> putStrLn "no parse"
- ts -> mapM_ answer ts
- loop gr
- where
- answer t = putStrLn $ linearize gr "BaseEng" $ gf $ question2answer $ fg t
-