merged Gf and Fg classes in generated Haskell

1 files changed, 3 insertions, 3 deletions

diff --git a/examples/tutorial/embedded/TransferLoop.hs b/examples/tutorial/embedded/TransferLoop.hs
index 07b530f74..708578156 100644
--- a/examples/tutorial/embedded/TransferLoop.hs
+++ b/examples/tutorial/embedded/TransferLoop.hs
@@ -1,11 +1,11 @@
 module Main where
 
-import GF.Embed.EmbedAPI
+import GF.GFCC.API
 import TransferDef (transfer)
 
 main :: IO () 
 main = do
-  gr <- file2grammar "math.gfcm"
+  gr <- file2grammar "Math.gfcc"
   loop (translate transfer gr)
 
 loop :: (String -> String) -> IO ()
@@ -17,7 +17,7 @@ loop trans = do
 
 translate :: (Tree -> Tree) -> MultiGrammar -> String -> String
 translate tr gr = unlines . map transLine . lines where
-  transLine s = case parseAllLang gr (startCat gr) s of
+  transLine s = case parseAllLang gr "Question" s of
     (lg,t:_):_ -> linearize gr lg (tr t)
     _ -> "NO PARSE"