msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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(forever)
import Control.Monad.State(evalStateT,put,get,gets,liftIO) 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 Data.Char(isSpace)
import qualified Data.Map as M import qualified Data.Map as M
import System.IO(hFlush,stdout) import System.IO(hFlush,stdout)
import qualified System.IO.Error as S
import System.Environment import System.Environment
import PGF2 import PGF2
import System.Mem(performGC) import System.Mem(performGC)
@@ -56,7 +55,7 @@ execute cmd =
put (pgf,[]) put (pgf,[])
Empty -> pop Empty -> pop
Unknown s -> putln ("Unknown command: "++s) Unknown s -> putln ("Unknown command: "++s)
`catch` (liftIO . print . (id::IOError->IOError)) `L.catch` (liftIO . print . (id::IOError->IOError))
pop = do (pgf,ls) <- get pop = do (pgf,ls) <- get
let (ls1,ls2) = splitAt 1 ls let (ls1,ls2) = splitAt 1 ls