GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

pgf-shell.hs: fix compilation problem with GHC 7.4

Browse Source
This commit is contained in:
hallgren
2014-05-07 17:06:34 +00:00
parent 7c88b7935f
commit b3d92a1378
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/runtime/haskell-bind/examples/pgf-shell.hs
View File

@@ -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