From 61c16f2eb2a042152a2b04f709d0cefe6e5a14df Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 15 Nov 2011 13:33:44 +0000
Subject: more structured format for errors and warnings from the compiler

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

(limited to 'src/compiler/GF/Infra/UseIO.hs')

diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs
index 1240351f6..309b09e46 100644
--- a/src/compiler/GF/Infra/UseIO.hs
+++ b/src/compiler/GF/Infra/UseIO.hs
@@ -158,9 +158,6 @@ foldIOE f s xs = case xs of
       Ok v  -> foldIOE f v xx
       Bad m -> return $ (s, Just m)
 
-dieIOE :: IOE a -> IO a
-dieIOE x = appIOE x >>= err die return
-
 die :: String -> IO a
 die s = do hPutStrLn stderr s
            exitFailure
-- 
cgit v1.2.3