From b3d92a13786cb2bf470f9a9062b4e873349a0436 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 7 May 2014 17:06:34 +0000 Subject: [PATCH] pgf-shell.hs: fix compilation problem with GHC 7.4 --- src/runtime/haskell-bind/examples/pgf-shell.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/runtime/haskell-bind/examples/pgf-shell.hs b/src/runtime/haskell-bind/examples/pgf-shell.hs index 2810640b0..4d8bda65f 100644 --- a/src/runtime/haskell-bind/examples/pgf-shell.hs +++ b/src/runtime/haskell-bind/examples/pgf-shell.hs @@ -9,11 +9,10 @@ import Control.Monad(forever) import Control.Monad.State(evalStateT,put,get,gets,liftIO) -import Control.Exception.Lifted(catch) +import Control.Exception.Lifted as L(catch) import Data.Char(isSpace) import qualified Data.Map as M import System.IO(hFlush,stdout) -import qualified System.IO.Error as S import System.Environment import PGF2 import System.Mem(performGC) @@ -56,7 +55,7 @@ execute cmd = put (pgf,[]) Empty -> pop Unknown s -> putln ("Unknown command: "++s) - `catch` (liftIO . print . (id::IOError->IOError)) + `L.catch` (liftIO . print . (id::IOError->IOError)) pop = do (pgf,ls) <- get let (ls1,ls2) = splitAt 1 ls