From a391c69fd3937cab699dbf18ec042c7eca93ac9a Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 16 Mar 2009 14:10:30 +0000
Subject: use new parser which supports the syntax in GF.Grammar.Grammar
 directly

---
 src/GF/Infra/UseIO.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src/GF/Infra')

diff --git a/src/GF/Infra/UseIO.hs b/src/GF/Infra/UseIO.hs
index c0cd95eeb..550554459 100644
--- a/src/GF/Infra/UseIO.hs
+++ b/src/GF/Infra/UseIO.hs
@@ -175,9 +175,3 @@ putPointE v opts msg act = do
       else when (verbAtLeast opts v) $ putStrLnE ""
 
   return a
-
-
--- ((do {s <- readFile f; return (return s)}) ) 
-readFileIOE :: FilePath -> IOE BS.ByteString
-readFileIOE f = ioe $ catch (BS.readFile f >>= return . return)
-                            (\e -> return (Bad (show e)))
-- 
cgit v1.2.3