diff options
| author | simonpj@microsoft.com <unknown> | 2010-11-11 13:45:03 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-11-11 13:45:03 +0000 |
| commit | 14c80817aace39608bada6c8d87cf29435d579dd (patch) | |
| tree | a7cfa120d1196cc2010a6faab893f6af3ccb9433 /compiler/utils | |
| parent | 5da0e96094f8a133d5b6b6bdf72a4a9a042dc626 (diff) | |
| download | haskell-14c80817aace39608bada6c8d87cf29435d579dd.tar.gz | |
Fix multi-line string (minor glitch in stage-1 compiler)
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index d6f950a9bb..e178e99f0d 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -83,11 +83,11 @@ import System.FilePath #if __GLASGOW_HASKELL__ >= 701 -import GHC.Show ( showMultiLineString ) +import GHC.Show ( showMultiLineString ) #else showMultiLineString :: String -> [String] -- Crude version -showMultiLineString s = [s] +showMultiLineString s = [ showList s "" ] #endif \end{code} |