diff options
| author | hallgren <hallgren@chalmers.se> | 2014-05-07 17:06:34 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-05-07 17:06:34 +0000 |
| commit | 70b192594e7d3057b6d7422e60e9e08011e4dc00 (patch) | |
| tree | 4e1326d841324f886294a782ccfc74970cbc5aa6 /src/runtime/haskell-bind/examples/pgf-shell.hs | |
| parent | 04e7bdb6fe5c888a4c45f0d9cac6ffebc6f5d835 (diff) | |
pgf-shell.hs: fix compilation problem with GHC 7.4
Diffstat (limited to 'src/runtime/haskell-bind/examples/pgf-shell.hs')
| -rw-r--r-- | src/runtime/haskell-bind/examples/pgf-shell.hs | 5 |
1 files 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 |