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/Command/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Command')

diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs
index 2ea3e169c..6f3700032 100644
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -1012,7 +1012,7 @@ allCommands env@(pgf, mos) = Map.fromList [
                                 _  -> fromExprs ts
      where
        (prs,bss) = unzip parses
-       ts        = [t | ParseResult ts <- prs, t <- ts]
+       ts        = [t | ParseOk ts <- prs, t <- ts]
 
    returnFromExprs es = return $ case es of
      [] -> ([], "no trees found")
-- 
cgit v1.2.3