From: simonpj <unknown>
Date: Mon, 6 Jan 2003 15:18:48 +0000 (+0000)
Subject: [project @ 2003-01-06 15:18:48 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1302
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=019b29dacb3363e9e9a3a934d3fcbb086cc5667d;hp=aef84dceb73aae423df4fd28d9852a200f55b0ce;p=ghc-hetmet.git

[project @ 2003-01-06 15:18:48 by simonpj]
dieWith uses ProgramError, not UsageError
---

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 727bfc1..b608206 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -204,7 +204,7 @@ linkExpr hsc_env pcs root_ul_bco
      needed_mods :: [Module]
      needed_mods = [ nameModule n | n <- free_names, isExternalName n ]
  
-dieWith msg = throwDyn (UsageError (showSDoc msg))
+dieWith msg = throwDyn (ProgramError (showSDoc msg))
 
 getLinkDeps :: HomePackageTable -> PackageIfaceTable
 	    -> [Module]				-- If you need these