From 91e6d821eaa22a7fb9c66fc30ffa4a2436411966 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:53:20 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in HsUtils --- compiler/hsSyn/HsUtils.lhs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/hsSyn/HsUtils.lhs b/compiler/hsSyn/HsUtils.lhs index d85db1a..71597f4 100644 --- a/compiler/hsSyn/HsUtils.lhs +++ b/compiler/hsSyn/HsUtils.lhs @@ -15,8 +15,6 @@ which deal with the intantiated versions are located elsewhere: \begin{code} module HsUtils where -#include "HsVersions.h" - import HsBinds import HsExpr import HsPat @@ -173,7 +171,7 @@ mkHsSplice :: LHsExpr RdrName -> HsSplice RdrName mkHsSplice e = HsSplice unqualSplice e unqualSplice :: RdrName -unqualSplice = mkRdrUnqual (mkVarOccFS FSLIT("splice")) +unqualSplice = mkRdrUnqual (mkVarOccFS (fsLit "splice")) -- A name (uniquified later) to -- identify the splice @@ -181,7 +179,7 @@ mkHsQuasiQuote :: RdrName -> SrcSpan -> FastString -> HsQuasiQuote RdrName mkHsQuasiQuote quoter span quote = HsQuasiQuote unqualQuasiQuote quoter span quote unqualQuasiQuote :: RdrName -unqualQuasiQuote = mkRdrUnqual (mkVarOccFS FSLIT("quasiquote")) +unqualQuasiQuote = mkRdrUnqual (mkVarOccFS (fsLit "quasiquote")) -- A name (uniquified later) to -- identify the quasi-quote -- 1.7.10.4