From 019b29dacb3363e9e9a3a934d3fcbb086cc5667d Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 6 Jan 2003 15:18:48 +0000
Subject: [PATCH] [project @ 2003-01-06 15:18:48 by simonpj] dieWith uses
 ProgramError, not UsageError

---
 ghc/compiler/ghci/Linker.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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