summaryrefslogtreecommitdiff
path: root/examples/tutorial/semantics/Top.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/tutorial/semantics/Top.hs')
-rw-r--r--examples/tutorial/semantics/Top.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/tutorial/semantics/Top.hs b/examples/tutorial/semantics/Top.hs
index 6027b238c..51d5fbb99 100644
--- a/examples/tutorial/semantics/Top.hs
+++ b/examples/tutorial/semantics/Top.hs
@@ -1,16 +1,16 @@
module Main where
-import GSyntax
+import Base
import SemBase
import Logic
-import GF.GFCC.API
+import PGF
main :: IO ()
main = do
- gr <- file2grammar "base.gfcc"
+ gr <- file2grammar "Base.pgf"
loop gr
-loop :: MultiGrammar -> IO ()
+loop :: PGF -> IO ()
loop gr = do
s <- getLine
let t:_ = parse gr "BaseEng" "S" s