redesign the open-literals API

2026-04-21 18:59:32 -06:00 · 2010-07-01 08:51:59 +00:00
parent 706b215fce
commit 5ae7be358d
15 changed files with 198 additions and 176 deletions
--- 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 []