diff options
Diffstat (limited to 'compiler/utils/Panic.hs')
| -rw-r--r-- | compiler/utils/Panic.hs | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/compiler/utils/Panic.hs b/compiler/utils/Panic.hs index bfb9df3ad3..e1c848d540 100644 --- a/compiler/utils/Panic.hs +++ b/compiler/utils/Panic.hs @@ -17,8 +17,8 @@ module Panic ( progName, pgmError, - panic, sorry, panicFastInt, assertPanic, trace, - panicDoc, sorryDoc, panicDocFastInt, pgmErrorDoc, + panic, sorry, assertPanic, trace, + panicDoc, sorryDoc, pgmErrorDoc, Exception.Exception(..), showException, safeShowException, try, tryMost, throwTo, @@ -30,7 +30,6 @@ module Panic ( import {-# SOURCE #-} Outputable (SDoc) import Config -import FastTypes import Exception import Control.Concurrent @@ -198,16 +197,6 @@ sorryDoc x doc = throwGhcException (PprSorry x doc) pgmErrorDoc x doc = throwGhcException (PprProgramError x doc) --- | Panic while pretending to return an unboxed int. --- You can't use the regular panic functions in expressions --- producing unboxed ints because they have the wrong kind. -panicFastInt :: String -> FastInt -panicFastInt s = case (panic s) of () -> _ILIT(0) - -panicDocFastInt :: String -> SDoc -> FastInt -panicDocFastInt s d = case (panicDoc s d) of () -> _ILIT(0) - - -- | Throw an failed assertion exception for a given filename and line number. assertPanic :: String -> Int -> a assertPanic file line = |