From 737f36823d03a6c9d92f56e3e2433a3961780e13 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sun, 31 Aug 2014 16:05:26 +0200 Subject: `M-x delete-trailing-whitespace` & `M-x untabify`... ...some files more or less recently touched by me [ci skip] --- compiler/prelude/PrelNames.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'compiler/prelude') diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 5757ba1234..ed6fa3f791 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -81,7 +81,7 @@ This is accomplished through a combination of mechanisms: This is accomplished through a variety of mechanisms: - a) The parser recognises them specially and generates an + a) The parser recognises them specially and generates an Exact Name (hence not looked up in the orig-name cache) b) The known infinite families of names are specially @@ -137,7 +137,7 @@ import FastString \begin{code} allNameStrings :: [String] -- Infinite list of a,b,c...z, aa, ab, ac, ... etc -allNameStrings = [ c:cs | cs <- "" : allNameStrings, c <- ['a'..'z'] ] +allNameStrings = [ c:cs | cs <- "" : allNameStrings, c <- ['a'..'z'] ] \end{code} @@ -1898,4 +1898,3 @@ derivableClassKeys = [ eqClassKey, ordClassKey, enumClassKey, ixClassKey, boundedClassKey, showClassKey, readClassKey ] \end{code} - -- cgit v1.2.1