From fee18fa325e81e3a127524a12bec4d95918f2c68 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:00:04 +0000 Subject: [PATCH] SLIT -> sLit in Prety.lhs --- compiler/utils/Pretty.lhs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs index bebb6b2..94173ab 100644 --- a/compiler/utils/Pretty.lhs +++ b/compiler/utils/Pretty.lhs @@ -175,8 +175,6 @@ module Pretty ( render, fullRender, printDoc, showDocWith ) where -#include "HsVersions.h" - import BufWrite import FastString import FastTypes @@ -974,7 +972,7 @@ display mode page_width ribbon_width txt end doc lay2 _ _ = panic "display/lay2: Unhandled case" -- optimise long indentations using LitString chunks of 8 spaces - indent n r | n >=# _ILIT(8) = LStr SLIT(" ") (_ILIT(8)) `txt` + indent n r | n >=# _ILIT(8) = LStr (sLit " ") (_ILIT(8)) `txt` indent (n -# _ILIT(8)) r | otherwise = Str (spaces n) `txt` r in -- 1.7.10.4