diff options
| author | krasimir <krasimir@chalmers.se> | 2017-01-26 18:40:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-01-26 18:40:36 +0000 |
| commit | 1cea621216ca515bc14326d9ce5dde12e56334ce (patch) | |
| tree | 8c31bb3beadef819957164345be4605e9d4c629f /src | |
| parent | af1a581f40a8a1fb7da66eb69fc43280650f1042 (diff) | |
use throwIO instead of throw in a few placed
Diffstat (limited to 'src')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 9718f4fa6..e87bc901b 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -69,7 +69,7 @@ module PGF2 (-- * PGF ) where import Prelude hiding (fromEnum) -import Control.Exception(Exception,throwIO,throw) +import Control.Exception(Exception,throwIO) import Control.Monad(forM_) import System.IO.Unsafe(unsafePerformIO,unsafeInterleaveIO) import Text.PrettyPrint @@ -227,7 +227,7 @@ checkExpr (PGF p _) (Expr c_expr _) (Type c_ty _) = gu_pool_free exprPl if is_tyerr then return (Left msg) - else throw (PGFError msg) + else throwIO (PGFError msg) -- | Tries to infer the type of an expression. Note that -- even if the expression is type correct it is not always @@ -253,7 +253,7 @@ inferExpr (PGF p _) (Expr c_expr _) = gu_pool_free exprPl if is_tyerr then return (Left msg) - else throw (PGFError msg) + else throwIO (PGFError msg) -- | Check whether a type is consistent with the abstract -- syntax of the grammar. @@ -277,7 +277,7 @@ checkType (PGF p _) (Type c_ty _) = gu_pool_free typePl if is_tyerr then return (Left msg) - else throw (PGFError msg) + else throwIO (PGFError msg) ----------------------------------------------------------------------------- -- Graphviz |