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
-showMultiLineString s = [s]
+showMultiLineString s = [ showList s "" ]
#endif
\end{code}