projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix multi-line string (minor glitch in stage-1 compiler)
[ghc-hetmet.git]
/
compiler
/
utils
/
Outputable.lhs
diff --git
a/compiler/utils/Outputable.lhs
b/compiler/utils/Outputable.lhs
index
96cf492
..
e178e99
100644
(file)
--- a/
compiler/utils/Outputable.lhs
+++ b/
compiler/utils/Outputable.lhs
@@
-82,12
+82,12
@@
import System.IO ( Handle, stderr, stdout, hFlush )
import System.FilePath
import System.FilePath
-#if __GLASGOW_HASKELL__ >= 700
-import GHC.Show ( showMultiLineString )
+#if __GLASGOW_HASKELL__ >= 701
+import GHC.Show ( showMultiLineString )
#else
showMultiLineString :: String -> [String]
-- Crude version
#else
showMultiLineString :: String -> [String]
-- Crude version
-showMultiLineString s = [s]
+showMultiLineString s = [ showList s "" ]
#endif
\end{code}
#endif
\end{code}