From c985dab565416251d9973f5b3bafe4d9d205b249 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 1 Oct 2003 12:46:44 +0000
Subject: Putting def definitions in place.

---
 src/GF/Source/TestGF.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/GF/Source/TestGF.hs')

diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs
index f1c8e49a1..89700bda6 100644
--- a/src/GF/Source/TestGF.hs
+++ b/src/GF/Source/TestGF.hs
@@ -6,15 +6,18 @@ import ParGF
 import SkelGF
 import PrintGF
 import AbsGF
+
 import ErrM
 
 type ParseFun a = [Token] -> Err a
 
+myLLexer = myLexer
+
 runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO()
 runFile p f = readFile f >>= run p
 
 run :: (Print a, Show a) => ParseFun a -> String -> IO()
-run p s = case (p (myLexer s)) of
+run p s = case (p (myLLexer s)) of
            Bad s    -> do  putStrLn "\nParse Failed...\n"
                            putStrLn s
            Ok  tree -> do putStrLn "\nParse Successful!"
-- 
cgit v1.2.3