From 5ae7be358daf169a3852d93f36c30c4ce7d0363e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 1 Jul 2010 08:51:59 +0000
Subject: redesign the open-literals API

---
 src/compiler/GF/Compile/ExampleBased.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Compile/ExampleBased.hs')

diff --git a/src/compiler/GF/Compile/ExampleBased.hs b/src/compiler/GF/Compile/ExampleBased.hs
index 5c56c0ce5..199d1e375 100644
--- a/src/compiler/GF/Compile/ExampleBased.hs
+++ b/src/compiler/GF/Compile/ExampleBased.hs
@@ -51,7 +51,7 @@ convertFile conf src file = do
         return ws
       TypeError _ _ ->
         return []
-      ParseResult ts ->
+      ParseOk ts ->
         case rank ts of
           (t:tt) -> appv ("WARNING: ambiguous example " ++ ex) >>
                     appn t >> mapM_ (appn . ("  --- " ++)) tt >> return []
-- 
cgit v1.2.3