From 7fba8c338d04777c82a2d04c4bc82a4da0e86659 Mon Sep 17 00:00:00 2001
From: "ra.monique" <ra.monique@gmail.com>
Date: Mon, 6 Dec 2010 10:15:14 +0000
Subject: no more IO in the syntax to API translator

---
 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 c82ee79af..c9f4b4945 100644
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -854,7 +854,7 @@ allCommands env@(pgf, mos) = Map.fromList [
        then return $ fromString $ unlines $ map (tree2mk pgf) es  
        else if isOpt "api" opts
        then do 
-         ss <- mapM exprToAPIIO es
+         let ss = map exprToAPI es
          mapM_ putStrLn ss
          return void
        else do
-- 
cgit v1.2.3