diff options
| author | John Ericson <git@JohnEricson.me> | 2019-03-26 23:48:47 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-08 15:53:40 -0400 |
| commit | 93f34bbd3319544d8eb3a5e2593bccb9b12e3459 (patch) | |
| tree | 4cd60b1595e767398f3b0fb17585f08918d1119a /compiler/utils | |
| parent | 4c86187ccd49309c1d6b32d05b164822a803d3e2 (diff) | |
| download | haskell-93f34bbd3319544d8eb3a5e2593bccb9b12e3459.tar.gz | |
Purge TargetPlatform_NAME and cTargetPlatformString
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Panic.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Panic.hs b/compiler/utils/Panic.hs index 4f0f3b1b32..df6612bdda 100644 --- a/compiler/utils/Panic.hs +++ b/compiler/utils/Panic.hs @@ -160,13 +160,13 @@ showGhcException exception sorryMsg :: ShowS -> ShowS sorryMsg s = showString "sorry! (unimplemented feature or known bug)\n" - . showString (" (GHC version " ++ cProjectVersion ++ " for " ++ TargetPlatform_NAME ++ "):\n\t") + . showString (" (GHC version " ++ cProjectVersion ++ ":\n\t") . s . showString "\n" panicMsg :: ShowS -> ShowS panicMsg s = showString "panic! (the 'impossible' happened)\n" - . showString (" (GHC version " ++ cProjectVersion ++ " for " ++ TargetPlatform_NAME ++ "):\n\t") + . showString (" (GHC version " ++ cProjectVersion ++ ":\n\t") . s . showString "\n\n" . showString "Please report this as a GHC bug: https://www.haskell.org/ghc/reportabug\n" |