From 6ee67cd04ffbce375d7f10e74a5d9eb742d6428d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 22 Oct 2014 15:45:52 +0000
Subject: Various small changes for improved documentation

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

(limited to 'src/compiler/GF/Command/Importing.hs')

diff --git a/src/compiler/GF/Command/Importing.hs b/src/compiler/GF/Command/Importing.hs
index 4c5d796c5..e2284aa58 100644
--- a/src/compiler/GF/Command/Importing.hs
+++ b/src/compiler/GF/Command/Importing.hs
@@ -48,7 +48,7 @@ importSource :: SourceGrammar -> Options -> [FilePath] -> IO SourceGrammar
 importSource src0 opts files = do
   src <- appIOE $ batchCompile opts files
   case src of
-    Ok (_,_,gr) -> return gr
+    Ok (_,(_,gr)) -> return gr
     Bad msg -> do 
       putStrLn msg
       return src0
-- 
cgit v1.2.3