[fix trailing whitespace. add fix-whitespace make target
John Meacham <john@repetae.net>**20120127014502
 Ignore-this: d34de915c0756575d1672beb516de3c4
] hunk ./Makefile.am 267
+fix-whitespace:
+	find src -not \( -name .svn -prune -o -name .git -prune \) -type f -print0 | xargs -0 sed -i  -E 's/[[:space:]]*$$//'
+	find lib -not \( -name .svn -prune -o -name .git -prune \) -type f -print0 | xargs -0 sed -i  -E 's/[[:space:]]*$$//'
+
hunk ./lib/Test/QuickCheck/Batch.hs 168
-	     -- Ignored if the watcher is already dead,	
+	     -- Ignored if the watcher is already dead,
hunk ./lib/applicative/Control/Applicative.hs 181
- 
+
hunk ./lib/applicative/Control/Applicative.hs 185
- 
+
hunk ./lib/applicative/Control/Applicative.hs 189
- 
+
hunk ./lib/base/Control/Monad/Fix.hs 70
-    mfix = fixIO 
+    mfix = fixIO
hunk ./lib/base/Data/Version.hs 82
-  v1 == v2  =  versionBranch v1 == versionBranch v2 
+  v1 == v2  =  versionBranch v1 == versionBranch v2
hunk ./lib/base/Data/Version.hs 93
--- a version with 'versionBranch' @= [1,2,3]@ and 'versionTags' 
+-- a version with 'versionBranch' @= [1,2,3]@ and 'versionTags'
hunk ./lib/base/Data/Version.hs 98
-  = concat (intersperse "." (map show branch)) ++ 
+  = concat (intersperse "." (map show branch)) ++
hunk ./lib/base/Foreign/C.hs 6
--- 
+--
hunk ./lib/base/System/Directory.hs 44
-createDirectory fp = throwErrnoIfMinus1_ fp $ withCString fp $ \cs -> mkdir cs (-1) 
+createDirectory fp = throwErrnoIfMinus1_ fp $ withCString fp $ \cs -> mkdir cs (-1)
hunk ./lib/base/System/Random.hs 226
---  #endif	
+--  #endif
hunk ./lib/base/base.yaml 6
-Exposed-Modules: 
+Exposed-Modules:
hunk ./lib/ext/containers.patch 12
- 
+
hunk ./lib/ext/containers.patch 21
- 
+
hunk ./lib/haskell98/Array.hs 3
-    Array, array, listArray, (!), bounds, indices, elems, assocs, 
+    Array, array, listArray, (!), bounds, indices, elems, assocs,
hunk ./lib/haskell98/CPUTime.hs 2
-    getCPUTime, cpuTimePrecision 
+    getCPUTime, cpuTimePrecision
hunk ./lib/haskell98/Char.hs 2
-    isAscii, isLatin1, isControl, isPrint, isSpace, isUpper, isLower, 
-    isAlpha, isDigit, isOctDigit, isHexDigit, isAlphaNum, 
+    isAscii, isLatin1, isControl, isPrint, isSpace, isUpper, isLower,
+    isAlpha, isDigit, isOctDigit, isHexDigit, isAlphaNum,
hunk ./lib/haskell98/Complex.hs 2
-    Complex((:+)), realPart, imagPart, conjugate, 
-    mkPolar, cis, polar, magnitude, phase 
+    Complex((:+)), realPart, imagPart, conjugate,
+    mkPolar, cis, polar, magnitude, phase
hunk ./lib/haskell98/Directory.hs 2
-    Permissions( Permissions, readable, writable, executable, searchable ), 
-    createDirectory, removeDirectory, removeFile, 
+    Permissions( Permissions, readable, writable, executable, searchable ),
+    createDirectory, removeDirectory, removeFile,
hunk ./lib/haskell98/Directory.hs 8
-    getModificationTime 
+    getModificationTime
hunk ./lib/haskell98/IO.hs 6
-    stdin, stdout, stderr, 
+    stdin, stdout, stderr,
hunk ./lib/haskell98/IO.hs 8
-    hSetBuffering, hGetBuffering, hFlush, 
-    hGetPosn, hSetPosn, hSeek, 
-    hWaitForInput, hReady, hGetChar, hGetLine, hLookAhead, hGetContents, 
+    hSetBuffering, hGetBuffering, hFlush,
+    hGetPosn, hSetPosn, hSeek,
+    hWaitForInput, hReady, hGetChar, hGetLine, hLookAhead, hGetContents,
hunk ./lib/haskell98/IO.hs 13
-    isAlreadyExistsError, isDoesNotExistError, isAlreadyInUseError, 
+    isAlreadyExistsError, isDoesNotExistError, isAlreadyInUseError,
hunk ./lib/haskell98/IO.hs 15
-    isIllegalOperation, isPermissionError, isUserError, 
+    isIllegalOperation, isPermissionError, isUserError,
hunk ./lib/haskell98/List.hs 25
-    sum, product, maximum, minimum, concatMap, 
+    sum, product, maximum, minimum, concatMap,
hunk ./lib/haskell98/Locale.hs 5
-import System.Locale ( 
+import System.Locale (
hunk ./lib/haskell98/Monad.hs 5
-    filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM, 
+    filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM,
hunk ./lib/haskell98/Monad.hs 11
-    mapM, mapM_, sequence, sequence_, (=<<), 
+    mapM, mapM_, sequence, sequence_, (=<<),
hunk ./lib/haskell98/Time.hs 2
-    ClockTime, 
+    ClockTime,
hunk ./lib/haskell98/Time.hs 12
-    calendarTimeToString, formatCalendarTime 
+    calendarTimeToString, formatCalendarTime
hunk ./src/DerivingDrift/DataP.hs 5
-data Statement = DataStmt | NewTypeStmt 
+data Statement = DataStmt | NewTypeStmt
hunk ./src/E/FromHs.hs 295
-convertE :: MonadWarn m => TiData -> ClassHierarchy -> Map.Map Name Type 
+convertE :: MonadWarn m => TiData -> ClassHierarchy -> Map.Map Name Type
hunk ./src/E/FromHs.hs 298
-    [(_,_,e)] <- convertDecls tiData mempty classHierarchy assumps dataTable 
+    [(_,_,e)] <- convertDecls tiData mempty classHierarchy assumps dataTable
hunk ./src/E/FromHs.hs 349
-convertDecls :: MonadWarn m => TiData -> IdMap Properties 
-    -> ClassHierarchy -> Map.Map Name Type -> DataTable 
+convertDecls :: MonadWarn m => TiData -> IdMap Properties
+    -> ClassHierarchy -> Map.Map Name Type -> DataTable
hunk ./src/E/FromHs.hs 458
-        result <- processPrim dataTable sLoc (toAtom cn) 
+        result <- processPrim dataTable sLoc (toAtom cn)
hunk ./src/StringTable/Atom.hsc 58
-    hash32 a = let (x,y) = fromAtom a :: CStringLen in 
+    hash32 a = let (x,y) = fromAtom a :: CStringLen in
hunk ./src/StringTable/Atom.hsc 66
-    hash32 s = unsafePerformIO $ withCStringLen s $ 
+    hash32 s = unsafePerformIO $ withCStringLen s $
hunk ./src/StringTable/Atom.hsc 102
-    fromAtom a@(Atom v) = (stPtr a,fromIntegral $ 
+    fromAtom a@(Atom v) = (stPtr a,fromIntegral $
hunk ./src/StringTable/Atom.hsc 130
-intToAtom i = if isValidAtom i then return (Atom $ fromIntegral i) else 
+intToAtom i = if isValidAtom i then return (Atom $ fromIntegral i) else
hunk ./src/Util/BitSet.hs 24
-    
+
hunk ./src/Util/BitSet.hs 31
-instance Collection BitSet where 
+instance Collection BitSet where
hunk ./src/Util/BitSet.hs 50
-    
+
hunk ./src/Util/BitSet.hs 98
-instance Enum a => Collection (EnumBitSet a) where 
+instance Enum a => Collection (EnumBitSet a) where
hunk ./src/Util/BitSet.hs 109
-    
+
hunk ./src/Util/Graph.hs 56
-    rable ks = Util.Graph.reachable ng [ v | Just v <- map (flip Map.lookup vmap) ks ] 
+    rable ks = Util.Graph.reachable ng [ v | Just v <- map (flip Map.lookup vmap) ks ]