From 0adb306aceaea7c10c67ff90e559eeea3ba5f19a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 16:09:44 +0000 Subject: [PATCH 1/1] (F)SLIT -> (f)sLit in Generics --- compiler/types/Generics.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/types/Generics.lhs b/compiler/types/Generics.lhs index 7685a9d..c0fb4fc 100644 --- a/compiler/types/Generics.lhs +++ b/compiler/types/Generics.lhs @@ -563,8 +563,8 @@ bimapList [ep] ------------------- a_RDR, b_RDR :: RdrName -a_RDR = mkVarUnqual FSLIT("a") -b_RDR = mkVarUnqual FSLIT("b") +a_RDR = mkVarUnqual (fsLit "a") +b_RDR = mkVarUnqual (fsLit "b") gs_RDR :: [RdrName] gs_RDR = [ mkVarUnqual (mkFastString ("g"++show i)) | i <- [(1::Int) .. ] ] -- 1.7.10.4