From 594cc38109e66088ab144f9370ca07a8eb54d2e8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:27:57 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in ForeignCall --- compiler/prelude/ForeignCall.lhs | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs index 5013078..df30934 100644 --- a/compiler/prelude/ForeignCall.lhs +++ b/compiler/prelude/ForeignCall.lhs @@ -24,8 +24,6 @@ module ForeignCall ( withDNTypes ) where -#include "HsVersions.h" - import FastString import Char ( isAlphaNum ) import Binary @@ -72,9 +70,9 @@ data Safety {-! derive: Binary !-} instance Outputable Safety where - ppr (PlaySafe False) = ptext SLIT("safe") - ppr (PlaySafe True) = ptext SLIT("threadsafe") - ppr PlayRisky = ptext SLIT("unsafe") + ppr (PlaySafe False) = ptext (sLit "safe") + ppr (PlaySafe True) = ptext (sLit "threadsafe") + ppr PlayRisky = ptext (sLit "unsafe") playSafe :: Safety -> Bool playSafe PlaySafe{} = True @@ -140,9 +138,9 @@ data CCallConv = CCallConv | StdCallConv | CmmCallConv {-! derive: Binary !-} instance Outputable CCallConv where - ppr StdCallConv = ptext SLIT("stdcall") - ppr CCallConv = ptext SLIT("ccall") - ppr CmmCallConv = ptext SLIT("C--") + ppr StdCallConv = ptext (sLit "stdcall") + ppr CCallConv = ptext (sLit "ccall") + ppr CmmCallConv = ptext (sLit "C--") defaultCCallConv :: CCallConv defaultCCallConv = CCallConv -- 1.7.10.4