diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-30 13:16:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-30 17:43:44 +0000 |
| commit | e66b09ee73e7589c8b16a4e5f0bdef72c8bcd62d (patch) | |
| tree | 2140131bd8bdfcc98470ef2226a73afdbf0a2c83 /compiler/main/DynamicLoading.hs | |
| parent | 7a6aa9116d0e0518302ea443256b747e9070bed2 (diff) | |
| download | haskell-e66b09ee73e7589c8b16a4e5f0bdef72c8bcd62d.tar.gz | |
Change a few throwGhcException uses to throwGhcExceptionIO
Diffstat (limited to 'compiler/main/DynamicLoading.hs')
| -rw-r--r-- | compiler/main/DynamicLoading.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/DynamicLoading.hs b/compiler/main/DynamicLoading.hs index adcb0eb3b3..889a09de20 100644 --- a/compiler/main/DynamicLoading.hs +++ b/compiler/main/DynamicLoading.hs @@ -35,7 +35,7 @@ import TyCon ( TyCon ) import Name ( Name, nameModule_maybe ) import Id ( idType ) import Module ( Module, ModuleName ) -import Panic ( GhcException(..), throwGhcException ) +import Panic import FastString import ErrUtils import Outputable @@ -165,5 +165,5 @@ throwCmdLineErrorS :: DynFlags -> SDoc -> IO a throwCmdLineErrorS dflags = throwCmdLineError . showSDoc dflags throwCmdLineError :: String -> IO a -throwCmdLineError = throwGhcException . CmdLineError +throwCmdLineError = throwGhcExceptionIO . CmdLineError #endif |