[remove trailing whitespace from library
John Meacham <john@repetae.net>**20050811034312] hunk ./lib/Array.hs 1
-module  Array ( 
-    module Ix,  -- export all of Ix 
-    Array, array, listArray, (!), bounds, indices, elems, assocs, 
+module  Array (
+    module Ix,  -- export all of Ix
+    Array, array, listArray, (!), bounds, indices, elems, assocs,
hunk ./lib/Array.hs 64
-    fmap fn (MkArray b f) =  MkArray b (fn . f) 
+    fmap fn (MkArray b f) =  MkArray b (fn . f)
hunk ./lib/Array.hs 80
-           (\r -> [ (array b as, u) 
+           (\r -> [ (array b as, u)
hunk ./lib/Char.hs 1
-module Char ( 
+module Char (
hunk ./lib/Char.hs 27
-isPrint c               =  isLatin1 c && not (isControl c) 
+isPrint c               =  isLatin1 c && not (isControl c)
hunk ./lib/Char.hs 64
-toUpper c | isLower c = chr $ ord c - 32  
+toUpper c | isLower c = chr $ ord c - 32
hunk ./lib/Char.hs 66
-        
+
hunk ./lib/Char.hs 74
-     
+
hunk ./lib/Char.hs 116
-showLitChar c | c > '\DEL' =  showChar '\\' . 
+showLitChar c | c > '\DEL' =  showChar '\\' .
hunk ./lib/Char.hs 135
-asciiTab :: [String]                                   
+asciiTab :: [String]
hunk ./lib/Char.hs 138
-            "BS",  "HT",  "LF",  "VT",  "FF",  "CR",  "SO",  "SI", 
+            "BS",  "HT",  "LF",  "VT",  "FF",  "CR",  "SO",  "SI",
hunk ./lib/Char.hs 140
-            "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US", 
-            "SP"] 
+            "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US",
+            "SP"]
hunk ./lib/Complex.hs 2
-    Complex((:+)), 
-    realPart, 
-    imagPart, 
-    conjugate, 
+    Complex((:+)),
+    realPart,
+    imagPart,
+    conjugate,
hunk ./lib/Complex.hs 7
-    cis, 
-    polar, 
-    magnitude, 
+    cis,
+    polar,
+    magnitude,
hunk ./lib/Data/Bits.hs 1
-module Data.Bits where 
+module Data.Bits where
hunk ./lib/Data/Bits.hs 8
-infixl 5 .|.   
+infixl 5 .|.
hunk ./lib/Data/Bits.hs 11
-{-| 
+{-|
hunk ./lib/Data/Bits.hs 135
-    x `rotateR` i = x `rotate` (-i)     
+    x `rotateR` i = x `rotate` (-i)
hunk ./lib/Data/Monoid.hs 7
--- 
+--
hunk ./lib/Data/Monoid.hs 16
---	      Higher-Order Polymorphism/, 
+--	      Higher-Order Polymorphism/,
hunk ./lib/Data.Dynamic.hs 1
-module Data.Dynamic(Dynamic,toDyn,fromDyn,fromDynamic,dynApply,dynApp) where 
+module Data.Dynamic(Dynamic,toDyn,fromDyn,fromDynamic,dynApply,dynApp) where
hunk ./lib/Data.Dynamic.hs 6
-data Obj 
+data Obj
hunk ./lib/Data.Dynamic.hs 12
-     
--- | Converts an arbitrary value into an object of type 'Dynamic'.  
+
+-- | Converts an arbitrary value into an object of type 'Dynamic'.
hunk ./lib/Data.Dynamic.hs 29
-	-> a		-- ^ a default value 
+	-> a		-- ^ a default value
hunk ./lib/Data.Dynamic.hs 43
-			-- object has the correct type (and @a@ is its value), 
+			-- object has the correct type (and @a@ is its value),
hunk ./lib/Data.Dynamic.hs 46
-  case unsafeCoerce v of 
+  case unsafeCoerce v of
hunk ./lib/Data.Dynamic.hs 58
-dynApp f x = case dynApply f x of 
+dynApp f x = case dynApply f x of
hunk ./lib/Data.Dynamic.hs 62
-                               " to argument " ++ show x)      
+                               " to argument " ++ show x)
hunk ./lib/Data.IORef.hs 7
-    atomicModifyIORef,-- :: IORef a -> (a -> (a,b)) -> IO b    
+    atomicModifyIORef,-- :: IORef a -> (a -> (a,b)) -> IO b
hunk ./lib/Data.IORef.hs 12
-data IORef a 
+data IORef a
hunk ./lib/Data.IORef.hs 29
-    case f a of 
-        (a',b) -> writeIORef r a' >> return b  
+    case f a of
+        (a',b) -> writeIORef r a' >> return b
hunk ./lib/Data.Typeable.hs 4
-data TypeRep 
+data TypeRep
hunk ./lib/Data.Typeable.hs 41
-  getArg :: c x -> x 
+  getArg :: c x -> x
hunk ./lib/Data.Typeable.hs 45
-gcast1 ::  c (t a) -> Maybe (c (t' a)) 
+gcast1 ::  c (t a) -> Maybe (c (t' a))
hunk ./lib/Data.Typeable.hs 51
-  getArg :: c x -> x 
+  getArg :: c x -> x
hunk ./lib/Data.Typeable.hs 55
-gcast2 ::  c (t a b) -> Maybe (c (t' a b)) 
+gcast2 ::  c (t a b) -> Maybe (c (t' a b))
hunk ./lib/Data.Typeable.hs 61
-  getArg :: c x -> x 
-  getArg = undefined           
+  getArg :: c x -> x
+  getArg = undefined
hunk ./lib/Data.Unicode.hs 13
-t_alnum, t_alpha, t_blank, t_cntrl, 
- t_digit, t_graph, t_lower, t_print, 
+t_alnum, t_alpha, t_blank, t_cntrl,
+ t_digit, t_graph, t_lower, t_print,
hunk ./lib/Directory.hs 1
-module Directory ( 
-    Permissions( Permissions, readable, writable, executable, searchable ), 
-    createDirectory, removeDirectory, removeFile, 
+module Directory (
+    Permissions( Permissions, readable, writable, executable, searchable ),
+    createDirectory, removeDirectory, removeFile,
hunk ./lib/Foreign/C/Error.hs 6
--- 
+--
hunk ./lib/Foreign/C/Error.hs 28
-  eOK,{- e2BIG, eACCES, eADDRINUSE, eADDRNOTAVAIL, eADV, eAFNOSUPPORT, eAGAIN, 
-  eALREADY, eBADF, eBADMSG, eBADRPC, eBUSY, eCHILD, eCOMM, eCONNABORTED, 
-  eCONNREFUSED, eCONNRESET, eDEADLK, eDESTADDRREQ, eDIRTY, eDOM, eDQUOT, 
-  eEXIST, eFAULT, eFBIG, eFTYPE, eHOSTDOWN, eHOSTUNREACH, eIDRM, eILSEQ, 
-  eINPROGRESS, eINTR, eINVAL, eIO, eISCONN, eISDIR, eLOOP, eMFILE, eMLINK, 
-  eMSGSIZE, eMULTIHOP, eNAMETOOLONG, eNETDOWN, eNETRESET, eNETUNREACH, 
-  eNFILE, eNOBUFS, eNODATA, eNODEV, eNOENT, eNOEXEC, eNOLCK, eNOLINK, 
-  eNOMEM, eNOMSG, eNONET, eNOPROTOOPT, eNOSPC, eNOSR, eNOSTR, eNOSYS, 
-  eNOTBLK, eNOTCONN, eNOTDIR, eNOTEMPTY, eNOTSOCK, eNOTTY, eNXIO, 
-  eOPNOTSUPP, ePERM, ePFNOSUPPORT, ePIPE, ePROCLIM, ePROCUNAVAIL, 
-  ePROGMISMATCH, ePROGUNAVAIL, ePROTO, ePROTONOSUPPORT, ePROTOTYPE, 
-  eRANGE, eREMCHG, eREMOTE, eROFS, eRPCMISMATCH, eRREMOTE, eSHUTDOWN, 
-  eSOCKTNOSUPPORT, eSPIPE, eSRCH, eSRMNT, eSTALE, eTIME, eTIMEDOUT, 
+  eOK,{- e2BIG, eACCES, eADDRINUSE, eADDRNOTAVAIL, eADV, eAFNOSUPPORT, eAGAIN,
+  eALREADY, eBADF, eBADMSG, eBADRPC, eBUSY, eCHILD, eCOMM, eCONNABORTED,
+  eCONNREFUSED, eCONNRESET, eDEADLK, eDESTADDRREQ, eDIRTY, eDOM, eDQUOT,
+  eEXIST, eFAULT, eFBIG, eFTYPE, eHOSTDOWN, eHOSTUNREACH, eIDRM, eILSEQ,
+  eINPROGRESS, eINTR, eINVAL, eIO, eISCONN, eISDIR, eLOOP, eMFILE, eMLINK,
+  eMSGSIZE, eMULTIHOP, eNAMETOOLONG, eNETDOWN, eNETRESET, eNETUNREACH,
+  eNFILE, eNOBUFS, eNODATA, eNODEV, eNOENT, eNOEXEC, eNOLCK, eNOLINK,
+  eNOMEM, eNOMSG, eNONET, eNOPROTOOPT, eNOSPC, eNOSR, eNOSTR, eNOSYS,
+  eNOTBLK, eNOTCONN, eNOTDIR, eNOTEMPTY, eNOTSOCK, eNOTTY, eNXIO,
+  eOPNOTSUPP, ePERM, ePFNOSUPPORT, ePIPE, ePROCLIM, ePROCUNAVAIL,
+  ePROGMISMATCH, ePROGUNAVAIL, ePROTO, ePROTONOSUPPORT, ePROTOTYPE,
+  eRANGE, eREMCHG, eREMOTE, eROFS, eRPCMISMATCH, eRREMOTE, eSHUTDOWN,
+  eSOCKTNOSUPPORT, eSPIPE, eSRCH, eSRMNT, eSTALE, eTIME, eTIMEDOUT,
hunk ./lib/Foreign/C/Error.hs 70
-  throwErrnoIfMinus1,   -- :: Num a 
+  throwErrnoIfMinus1,   -- :: Num a
hunk ./lib/Foreign/C/Error.hs 72
-  throwErrnoIfMinus1_,  -- :: Num a 
+  throwErrnoIfMinus1_,  -- :: Num a
hunk ./lib/Foreign/C/Error.hs 74
-  throwErrnoIfMinus1Retry,  
-			-- :: Num a 
+  throwErrnoIfMinus1Retry,
+			-- :: Num a
hunk ./lib/Foreign/C/Error.hs 77
-  throwErrnoIfMinus1Retry_,  
-			-- :: Num a 
+  throwErrnoIfMinus1Retry_,
+			-- :: Num a
hunk ./lib/Foreign/C/Error.hs 83
-  throwErrnoIfRetryMayBlock, 
+  throwErrnoIfRetryMayBlock,
hunk ./lib/Foreign/C/Error.hs 86
-  throwErrnoIfMinus1RetryMayBlock_,  
+  throwErrnoIfMinus1RetryMayBlock_,
hunk ./lib/Foreign/C/Error.hs 111
-  errno1@(Errno no1) == errno2@(Errno no2) 
+  errno1@(Errno no1) == errno2@(Errno no2)
hunk ./lib/Foreign/C/Error.hs 118
-eOK, e2BIG, eACCES, eADDRINUSE, eADDRNOTAVAIL, eADV, eAFNOSUPPORT, eAGAIN, 
-  eALREADY, eBADF, eBADMSG, eBADRPC, eBUSY, eCHILD, eCOMM, eCONNABORTED, 
-  eCONNREFUSED, eCONNRESET, eDEADLK, eDESTADDRREQ, eDIRTY, eDOM, eDQUOT, 
-  eEXIST, eFAULT, eFBIG, eFTYPE, eHOSTDOWN, eHOSTUNREACH, eIDRM, eILSEQ, 
-  eINPROGRESS, eINTR, eINVAL, eIO, eISCONN, eISDIR, eLOOP, eMFILE, eMLINK, 
-  eMSGSIZE, eMULTIHOP, eNAMETOOLONG, eNETDOWN, eNETRESET, eNETUNREACH, 
-  eNFILE, eNOBUFS, eNODATA, eNODEV, eNOENT, eNOEXEC, eNOLCK, eNOLINK, 
-  eNOMEM, eNOMSG, eNONET, eNOPROTOOPT, eNOSPC, eNOSR, eNOSTR, eNOSYS, 
-  eNOTBLK, eNOTCONN, eNOTDIR, eNOTEMPTY, eNOTSOCK, eNOTTY, eNXIO, 
-  eOPNOTSUPP, ePERM, ePFNOSUPPORT, ePIPE, ePROCLIM, ePROCUNAVAIL, 
-  ePROGMISMATCH, ePROGUNAVAIL, ePROTO, ePROTONOSUPPORT, ePROTOTYPE, 
-  eRANGE, eREMCHG, eREMOTE, eROFS, eRPCMISMATCH, eRREMOTE, eSHUTDOWN, 
-  eSOCKTNOSUPPORT, eSPIPE, eSRCH, eSRMNT, eSTALE, eTIME, eTIMEDOUT, 
+eOK, e2BIG, eACCES, eADDRINUSE, eADDRNOTAVAIL, eADV, eAFNOSUPPORT, eAGAIN,
+  eALREADY, eBADF, eBADMSG, eBADRPC, eBUSY, eCHILD, eCOMM, eCONNABORTED,
+  eCONNREFUSED, eCONNRESET, eDEADLK, eDESTADDRREQ, eDIRTY, eDOM, eDQUOT,
+  eEXIST, eFAULT, eFBIG, eFTYPE, eHOSTDOWN, eHOSTUNREACH, eIDRM, eILSEQ,
+  eINPROGRESS, eINTR, eINVAL, eIO, eISCONN, eISDIR, eLOOP, eMFILE, eMLINK,
+  eMSGSIZE, eMULTIHOP, eNAMETOOLONG, eNETDOWN, eNETRESET, eNETUNREACH,
+  eNFILE, eNOBUFS, eNODATA, eNODEV, eNOENT, eNOEXEC, eNOLCK, eNOLINK,
+  eNOMEM, eNOMSG, eNONET, eNOPROTOOPT, eNOSPC, eNOSR, eNOSTR, eNOSYS,
+  eNOTBLK, eNOTCONN, eNOTDIR, eNOTEMPTY, eNOTSOCK, eNOTTY, eNXIO,
+  eOPNOTSUPP, ePERM, ePFNOSUPPORT, ePIPE, ePROCLIM, ePROCUNAVAIL,
+  ePROGMISMATCH, ePROGUNAVAIL, ePROTO, ePROTONOSUPPORT, ePROTOTYPE,
+  eRANGE, eREMCHG, eREMOTE, eROFS, eRPCMISMATCH, eRREMOTE, eSHUTDOWN,
+  eSOCKTNOSUPPORT, eSPIPE, eSRCH, eSRMNT, eSTALE, eTIME, eTIMEDOUT,
hunk ./lib/Foreign/C/Error.hs 134
--- configure 
+-- configure
hunk ./lib/Foreign/C/Error.hs 296
-throwErrnoIf pred loc f  = 
+throwErrnoIf pred loc f  =
hunk ./lib/Foreign/C/Error.hs 312
-throwErrnoIfRetry pred loc f  = 
+throwErrnoIfRetry pred loc f  =
hunk ./lib/Foreign/C/Error.hs 334
-throwErrnoIfRetryMayBlock pred loc f on_block  = 
+throwErrnoIfRetryMayBlock pred loc f on_block  =
hunk ./lib/Foreign/C/Error.hs 355
-throwErrnoIfRetryMayBlock_ pred loc f on_block 
+throwErrnoIfRetryMayBlock_ pred loc f on_block
hunk ./lib/Foreign/C/String.hs 6
--- 
+--
hunk ./lib/Foreign/C/String.hs 220
-peekCAStringLen (cp, len) 
+peekCAStringLen (cp, len)
hunk ./lib/Foreign/Marshal/Alloc.hs 32
-    r <- f p 
+    r <- f p
hunk ./lib/Foreign/Marshal/Alloc.hs 115
-reallocBytes ptr size  = 
+reallocBytes ptr size  =
hunk ./lib/Foreign/Marshal/Alloc.hs 118
-foreign import ccall "stdlib.h malloc" _malloc :: CSize -> IO (Ptr a) 
+foreign import ccall "stdlib.h malloc" _malloc :: CSize -> IO (Ptr a)
hunk ./lib/Foreign/Marshal/Array.hs 113
-  
+
hunk ./lib/Foreign/Marshal/Error.hs 6
--- 
+--
hunk ./lib/Foreign/Marshal/Error.hs 19
-  throwIfNeg,    -- :: (Ord a, Num a) 
+  throwIfNeg,    -- :: (Ord a, Num a)
hunk ./lib/Foreign/Marshal/Utils.hs 7
--- 
+--
hunk ./lib/Foreign/Marshal/Utils.hs 69
-new val  = 
-  do 
+new val  =
+  do
hunk ./lib/Foreign/Marshal/Utils.hs 120
-maybeWith :: (      a -> (Ptr b -> IO c) -> IO c) 
+maybeWith :: (      a -> (Ptr b -> IO c) -> IO c)
hunk ./lib/Foreign/Marshal/Utils.hs 125
--- 'nullPtr' 
+-- 'nullPtr'
hunk ./lib/Foreign/Ptr.hs 2
-    Ptr, 
-    nullPtr, 
-    castPtr, 
-    plusPtr, 
-    alignPtr, 
-    minusPtr, 
-    FunPtr, 
-    nullFunPtr, 
-    castFunPtr, 
-    castFunPtrToPtr, 
-    castPtrToFunPtr, 
+    Ptr,
+    nullPtr,
+    castPtr,
+    plusPtr,
+    alignPtr,
+    minusPtr,
+    FunPtr,
+    nullFunPtr,
+    castFunPtr,
+    castFunPtrToPtr,
+    castPtrToFunPtr,
hunk ./lib/Foreign/Ptr.hs 21
-newtype Ptr a = Ptr Addr 
-newtype FunPtr a = FunPtr FunAddr 
+newtype Ptr a = Ptr Addr
+newtype FunPtr a = FunPtr FunAddr
hunk ./lib/Foreign/Ptr.hs 24
-instance Storable (Ptr a) where 
+instance Storable (Ptr a) where
hunk ./lib/Foreign/Ptr.hs 27
-    peek p = peek (castPtr p) >>= return . Ptr 
+    peek p = peek (castPtr p) >>= return . Ptr
hunk ./lib/Foreign/Ptr.hs 41
-instance Show (Ptr a) where 
+instance Show (Ptr a) where
hunk ./lib/Foreign/Ptr.hs 61
---      n -> Ptr (plusAddr# a (i -# n)) }    
+--      n -> Ptr (plusAddr# a (i -# n)) }
hunk ./lib/IO.hs 15
-    
-    ) where 
+
+    ) where
hunk ./lib/IO.hs 19
-    Handle, 
+    Handle,
hunk ./lib/IO.hs 44
-                      
+
hunk ./lib/IO.hs 83
-    r <- c_feof ptr 
-    return (r /= 0) 
+    r <- c_feof ptr
+    return (r /= 0)
hunk ./lib/IO.hs 87
-    c_fputwc (fromInt (ord ch)) ptr  
+    c_fputwc (fromInt (ord ch)) ptr
hunk ./lib/IO.hs 93
-	   
+	
hunk ./lib/IO.hs 95
-hPutStrLn h s = do 
+hPutStrLn h s = do
hunk ./lib/IO.hs 98
-	   
+	
hunk ./lib/IO.hs 105
-            ch <- c_fgetwc ptr 
+            ch <- c_fgetwc ptr
hunk ./lib/Ix.hs 11
-                      | otherwise      = index b h + 1 
+                      | otherwise      = index b h + 1
hunk ./lib/Jhc.Addr.hs 18
-wordPtrToFunAddr :: WordPtr -> FunAddr 
+wordPtrToFunAddr :: WordPtr -> FunAddr
hunk ./lib/Jhc.Addr.hs 20
-funAddrToWordPtr :: FunAddr -> WordPtr 
+funAddrToWordPtr :: FunAddr -> WordPtr
hunk ./lib/Jhc.Addr.hs 24
-plusAddr addr off = wordPtrToAddr $ addrToWordPtr addr + fromInt off 
+plusAddr addr off = wordPtrToAddr $ addrToWordPtr addr + fromInt off
hunk ./lib/Jhc.Addr.hs 30
-foreign import primitive "integralCast" wordPtrToFunAddr :: WordPtr -> FunAddr 
-foreign import primitive "integralCast" funAddrToWordPtr :: FunAddr -> WordPtr 
+foreign import primitive "integralCast" wordPtrToFunAddr :: WordPtr -> FunAddr
+foreign import primitive "integralCast" funAddrToWordPtr :: FunAddr -> WordPtr
hunk ./lib/Jhc.Array.hs 8
--- | the number representing the size of the array must be less than or equal to the number of 
+-- | the number representing the size of the array must be less than or equal to the number of
hunk ./lib/Jhc.Array.hs 13
-foreign import primitive "unsafeAt__" :: Array__ a -> Int -> a 
-foreign import primitive "unsafeCopyArray__" :: Int -> [Either (Int,Int,Array__ a) a] -> Array__ a  
+foreign import primitive "unsafeAt__" :: Array__ a -> Int -> a
+foreign import primitive "unsafeCopyArray__" :: Int -> [Either (Int,Int,Array__ a) a] -> Array__ a
hunk ./lib/Jhc.Handle.hs 2
-    Handle(..), 
-    IOMode(..), 
-    stdin, 
-    stdout, 
-    stderr, 
-    withHandle, 
+    Handle(..),
+    IOMode(..),
+    stdin,
+    stdout,
+    stderr,
+    withHandle,
hunk ./lib/Jhc.Handle.hs 24
-data Handle = Handle { 
+data Handle = Handle {
hunk ./lib/Jhc.Handle.hs 52
-    ptr <- peek (handleFile h) 
-    case ptr == nullPtr of 
+    ptr <- peek (handleFile h)
+    case ptr == nullPtr of
hunk ./lib/Jhc.Handle.hs 58
-    ptr <- peek (handleFile h) 
-    case ptr == nullPtr of 
+    ptr <- peek (handleFile h)
+    case ptr == nullPtr of
hunk ./lib/Jhc.Handle.hs 64
-    ptr <- peek (handleFile h) 
-    return (ptr /= nullPtr) 
+    ptr <- peek (handleFile h)
+    return (ptr /= nullPtr)
hunk ./lib/Jhc.Handle.hs 90
-    
+
hunk ./lib/Jhc.IO.hs 14
-unsafePerformIO (IO x) = case x World__ of 
+unsafePerformIO (IO x) = case x World__ of
hunk ./lib/Jhc.IO.hs 25
-    IO x >>= f = IO $ \w -> case x w of 
+    IO x >>= f = IO $ \w -> case x w of
hunk ./lib/Jhc.IO.hs 27
-            IO g -> g w 
+            IO g -> g w
hunk ./lib/Jhc.IO.hs 35
-    fmap f a = a >>= \x -> return (f x) 
+    fmap f a = a >>= \x -> return (f x)
hunk ./lib/Jhc.IO.hs 40
-            r@(JustIO _ ans) = case k ans of 
+            r@(JustIO _ ans) = case k ans of
hunk ./lib/Jhc.IO.hs 49
-            r = case k ans of 
+            r = case k ans of
hunk ./lib/Jhc.IO.hs 51
-            ans = case r of         
+            ans = case r of
hunk ./lib/Jhc.IO.hs 54
-               in r   
+               in r
hunk ./lib/Jhc.IO.hs 67
---unsafePerformIO (IO x) = snd $ x undefined 
+--unsafePerformIO (IO x) = snd $ x undefined
hunk ./lib/Jhc.IO.hs 71
-    f w = (w,case m w of (_,r) -> r) 
+    f w = (w,case m w of (_,r) -> r)
hunk ./lib/Jhc.Tuples.hs 8
-{- TUPGEN! 
+{- TUPGEN!
hunk ./lib/Jhc.Tuples.hs 11
-    (#Tup #x) == (#Tup #y) = and [#List #x == #y] 
-    (#Tup #x) /= (#Tup #y) = or [#List #x /= #y] 
+    (#Tup #x) == (#Tup #y) = and [#List #x == #y]
+    (#Tup #x) /= (#Tup #y) = or [#List #x /= #y]
hunk ./lib/Jhc.Tuples.hs 19
-    compare (x,y) (a,b) = case compare x a of 
+    compare (x,y) (a,b) = case compare x a of
hunk ./lib/Jhc.Tuples.hs 39
-                                          shows y . showChar ')') 
+                                          shows y . showChar ')')
hunk ./lib/Jhc.Tuples.hs 60
-					     	shows z . showChar ')') 
+					     	shows z . showChar ')')
hunk ./lib/Jhc.Tuples.hs 67
-    (x1,x2) == (y1,y2) = and [x1 == y1,x2 == y2] 
-    (x1,x2) /= (y1,y2) = or [x1 /= y1,x2 /= y2] 
+    (x1,x2) == (y1,y2) = and [x1 == y1,x2 == y2]
+    (x1,x2) /= (y1,y2) = or [x1 /= y1,x2 /= y2]
hunk ./lib/Jhc.Tuples.hs 73
-    (x1,x2,x3) == (y1,y2,y3) = and [x1 == y1,x2 == y2,x3 == y3] 
-    (x1,x2,x3) /= (y1,y2,y3) = or [x1 /= y1,x2 /= y2,x3 /= y3] 
+    (x1,x2,x3) == (y1,y2,y3) = and [x1 == y1,x2 == y2,x3 == y3]
+    (x1,x2,x3) /= (y1,y2,y3) = or [x1 /= y1,x2 /= y2,x3 /= y3]
hunk ./lib/Jhc.Tuples.hs 79
-    (x1,x2,x3,x4) == (y1,y2,y3,y4) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4] 
-    (x1,x2,x3,x4) /= (y1,y2,y3,y4) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4] 
+    (x1,x2,x3,x4) == (y1,y2,y3,y4) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4]
+    (x1,x2,x3,x4) /= (y1,y2,y3,y4) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4]
hunk ./lib/Jhc.Tuples.hs 85
-    (x1,x2,x3,x4,x5) == (y1,y2,y3,y4,y5) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5] 
-    (x1,x2,x3,x4,x5) /= (y1,y2,y3,y4,y5) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5] 
+    (x1,x2,x3,x4,x5) == (y1,y2,y3,y4,y5) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5]
+    (x1,x2,x3,x4,x5) /= (y1,y2,y3,y4,y5) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5]
hunk ./lib/Jhc.Tuples.hs 91
-    (x1,x2,x3,x4,x5,x6) == (y1,y2,y3,y4,y5,y6) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5,x6 == y6] 
-    (x1,x2,x3,x4,x5,x6) /= (y1,y2,y3,y4,y5,y6) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5,x6 /= y6] 
+    (x1,x2,x3,x4,x5,x6) == (y1,y2,y3,y4,y5,y6) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5,x6 == y6]
+    (x1,x2,x3,x4,x5,x6) /= (y1,y2,y3,y4,y5,y6) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5,x6 /= y6]
hunk ./lib/Jhc.Tuples.hs 97
-    (x1,x2,x3,x4,x5,x6,x7) == (y1,y2,y3,y4,y5,y6,y7) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5,x6 == y6,x7 == y7] 
-    (x1,x2,x3,x4,x5,x6,x7) /= (y1,y2,y3,y4,y5,y6,y7) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5,x6 /= y6,x7 /= y7] 
+    (x1,x2,x3,x4,x5,x6,x7) == (y1,y2,y3,y4,y5,y6,y7) = and [x1 == y1,x2 == y2,x3 == y3,x4 == y4,x5 == y5,x6 == y6,x7 == y7]
+    (x1,x2,x3,x4,x5,x6,x7) /= (y1,y2,y3,y4,y5,y6,y7) = or [x1 /= y1,x2 /= y2,x3 /= y3,x4 /= y4,x5 /= y5,x6 /= y6,x7 /= y7]
hunk ./lib/List.hs 1
- 
-module List ( 
+
+module List (
hunk ./lib/List.hs 26
-    sum, product, maximum, minimum, concatMap, 
+    sum, product, maximum, minimum, concatMap,
hunk ./lib/List.hs 35
-        
+
hunk ./lib/List.hs 38
-                        
+
hunk ./lib/List.hs 73
-union                   =  unionBy (==)    
+union                   =  unionBy (==)
hunk ./lib/List.hs 97
-transpose ((x:xs) : xss) = (x : [h | (h:t) <- xss]) : 
+transpose ((x:xs) : xss) = (x : [h | (h:t) <- xss]) :
hunk ./lib/List.hs 190
-genericTake n (x:xs) 
+genericTake n (x:xs)
hunk ./lib/List.hs 197
-genericDrop n (_:xs) 
+genericDrop n (_:xs)
hunk ./lib/List.hs 204
-genericSplitAt n (x:xs) 
+genericSplitAt n (x:xs)
hunk ./lib/List.hs 211
-genericIndex (_:xs) n 
+genericIndex (_:xs) n
hunk ./lib/List.hs 218
- 
+
hunk ./lib/List.hs 225
-zip6                    :: [a] -> [b] -> [c] -> [d] -> [e] -> [f] -> 
+zip6                    :: [a] -> [b] -> [c] -> [d] -> [e] -> [f] ->
hunk ./lib/List.hs 238
-zipWith5                :: (a->b->c->d->e->f) -> 
+zipWith5                :: (a->b->c->d->e->f) ->
hunk ./lib/Locale.hs 1
-module Locale where 
+module Locale where
hunk ./lib/Locale.hs 8
-          timeFmt, time12Fmt :: String     
+          timeFmt, time12Fmt :: String
hunk ./lib/Locale.hs 11
-defaultTimeLocale :: TimeLocale 
-defaultTimeLocale =  TimeLocale { 
-        wDays  = [("Sunday",   "Sun"),  ("Monday",    "Mon"),   
-                  ("Tuesday",  "Tue"),  ("Wednesday", "Wed"), 
-                  ("Thursday", "Thu"),  ("Friday",    "Fri"), 
+defaultTimeLocale :: TimeLocale
+defaultTimeLocale =  TimeLocale {
+        wDays  = [("Sunday",   "Sun"),  ("Monday",    "Mon"),
+                  ("Tuesday",  "Tue"),  ("Wednesday", "Wed"),
+                  ("Thursday", "Thu"),  ("Friday",    "Fri"),
hunk ./lib/Maybe.hs 1
- 
+
hunk ./lib/Maybe.hs 36
- 
+
hunk ./lib/Monad.hs 4
-    filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM, 
+    filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM,
hunk ./lib/Monad.hs 10
-    mapM, mapM_, sequence, sequence_, (=<<) 
+    mapM, mapM_, sequence, sequence_, (=<<)
hunk ./lib/Monad.hs 29
--- Functions    
+-- Functions
hunk ./lib/Monad.hs 66
-ys <- filterM p xs; 
+ys <- filterM p xs;
hunk ./lib/Numeric.hs 5
-               readDec, readOct, readHex, 
+               readDec, readOct, readHex,
hunk ./lib/Numeric.hs 7
-               showEFloat, showFFloat, showGFloat, showFloat, 
+               showEFloat, showFFloat, showGFloat, showFloat,
hunk ./lib/Numeric.hs 21
-fromRat x = 
+fromRat x =
hunk ./lib/Numeric.hs 48
-scaleRat :: Rational -> Int -> Rational -> Rational -> 
+scaleRat :: Rational -> Int -> Rational -> Rational ->
hunk ./lib/Numeric.hs 91
--- Misc utilities to show integers and floats 
+-- Misc utilities to show integers and floats
hunk ./lib/Numeric.hs 94
-showSigned showPos p x 
+showSigned showPos p x
hunk ./lib/Numeric.hs 104
-showIntAtBase :: Integral a 
+showIntAtBase :: Integral a
hunk ./lib/Numeric.hs 127
--- readInt reads a string of digits using an arbitrary base.  
+-- readInt reads a string of digits using an arbitrary base.
hunk ./lib/Numeric.hs 150
-showFloat      =  showGFloat Nothing 
+showFloat      =  showGFloat Nothing
hunk ./lib/Numeric.hs 157
-formatRealFloat fmt decs x 
+formatRealFloat fmt decs x
hunk ./lib/Numeric.hs 159
-  where 
+  where
hunk ./lib/Numeric.hs 161
-    s = if isNaN x then 
+    s = if isNaN x then
hunk ./lib/Numeric.hs 163
-        else if isInfinite x then 
+        else if isInfinite x then
hunk ./lib/Numeric.hs 165
-        else if x < 0 || isNegativeZero x then 
+        else if x < 0 || isNegativeZero x then
hunk ./lib/Numeric.hs 167
-        else 
+        else
hunk ./lib/Numeric.hs 169
-    
+
hunk ./lib/Numeric.hs 171
-      = let 
+      = let
hunk ./lib/Numeric.hs 173
-        in  
+        in
hunk ./lib/Numeric.hs 175
-          FFGeneric -> 
+          FFGeneric ->
hunk ./lib/Numeric.hs 185
-          
+
hunk ./lib/Numeric.hs 195
-          
+
hunk ./lib/Numeric.hs 202
-              
+
hunk ./lib/Numeric.hs 207
-                       (ls, rs)  = splitAt (e+ei) 
+                       (ls, rs)  = splitAt (e+ei)
hunk ./lib/Numeric.hs 211
-                   let (ei, is') = roundTo base dec' 
+                   let (ei, is') = roundTo base dec'
hunk ./lib/Numeric.hs 213
-                       d : ds = map intToDigit 
+                       d : ds = map intToDigit
hunk ./lib/Numeric.hs 216
-            where   
+            where
hunk ./lib/Numeric.hs 218
-              mk0 s  = s  
-    
+              mk0 s  = s
+
hunk ./lib/Numeric.hs 223
-    
+
hunk ./lib/Numeric.hs 232
-        f d (i:is) = 
+        f d (i:is) =
hunk ./lib/Numeric.hs 240
--- The version here uses a much slower logarithm estimator.  
+-- The version here uses a much slower logarithm estimator.
hunk ./lib/Numeric.hs 248
--- 
+--
hunk ./lib/Numeric.hs 279
-        k = 
+        k =
hunk ./lib/Numeric.hs 288
-                        ceiling ((log ((fromInteger (f+1))::Double) + 
-                                 fromIntegral e * log (fromInteger b)) / 
+                        ceiling ((log ((fromInteger (f+1))::Double) +
+                                 fromIntegral e * log (fromInteger b)) /
hunk ./lib/Numeric.hs 328
-               where 
+               where
hunk ./lib/Numeric.hs 332
-               
+
hunk ./lib/Numeric.hs 334
-                 lexFrac s        = [("",s)]        
-                 
+                 lexFrac s        = [("",s)]
+
hunk ./lib/Numeric.hs 338
-                 
+
hunk ./lib/Numeric.hs 343
-lexDigits        :: ReadS String 
+lexDigits        :: ReadS String
hunk ./lib/Prelude.Float.hs 1
-module Prelude.Float() where 
+module Prelude.Float() where
hunk ./lib/Prelude.Float.hs 15
-    (/) = divide@type@  
+    (/) = divide@type@
hunk ./lib/Prelude.Float.hs 36
-    
+
hunk ./lib/Prelude.Float.hs 63
-    a / b = divideFloat a b 
+    a / b = divideFloat a b
hunk ./lib/Prelude.Float.hs 84
-    
+
hunk ./lib/Prelude.Float.hs 110
-    (/) = divideDouble  
+    (/) = divideDouble
hunk ./lib/Prelude.Float.hs 131
-    
+
hunk ./lib/Prelude.Float.hs 153
-instance Real Float where 
+instance Real Float where
hunk ./lib/Prelude.Float.hs 157
-instance Real Double where 
+instance Real Double where
hunk ./lib/Prelude.Float.hs 173
-        }              
+        }
hunk ./lib/Prelude.Float.hs 185
-        }              
+        }
hunk ./lib/Prelude.Float.hs 187
-instance RealFloat Float where 
+instance RealFloat Float where
hunk ./lib/Prelude.Float.hs 199
-			    (m,n) -> encodeFloat m (n+k)        
+			    (m,n) -> encodeFloat m (n+k)
hunk ./lib/Prelude.Float.hs 203
-    isNegativeZero x = x == 0 && c_signbitf x /= 0 
+    isNegativeZero x = x == 0 && c_signbitf x /= 0
hunk ./lib/Prelude.Float.hs 205
-    encodeFloat i e = double2float $ c_ldexp (integer2double i) (fromInt e) 
+    encodeFloat i e = double2float $ c_ldexp (integer2double i) (fromInt e)
hunk ./lib/Prelude.Float.hs 211
+
+
hunk ./lib/Prelude.Float.hs 214
-    
-    
hunk ./lib/Prelude.Float.hs 217
-foreign import ccall "math.h ldexp" c_ldexp :: Double -> CInt -> Double  
+foreign import ccall "math.h ldexp" c_ldexp :: Double -> CInt -> Double
hunk ./lib/Prelude.Float.hs 221
-foreign import ccall "math.h frexp" c_frexp :: Double -> Ptr CInt -> IO Double  
+foreign import ccall "math.h frexp" c_frexp :: Double -> Ptr CInt -> IO Double
hunk ./lib/Prelude.Float.hs 229
-    
-instance RealFloat Double where 
+
+instance RealFloat Double where
hunk ./lib/Prelude.Float.hs 242
-    --    		    (m,n) -> encodeFloat m (n+k)        
+    --    		    (m,n) -> encodeFloat m (n+k)
hunk ./lib/Prelude.Float.hs 246
-    isNegativeZero x = x == 0 && c_signbit x /= 0 
+    isNegativeZero x = x == 0 && c_signbit x /= 0
hunk ./lib/Prelude.Float.hs 248
-    encodeFloat i e =  c_ldexp (integer2double i) (fromInt e) 
+    encodeFloat i e =  c_ldexp (integer2double i) (fromInt e)
hunk ./lib/Prelude.Float.hs 255
+
+
hunk ./lib/Prelude.Float.hs 258
-    
-    
hunk ./lib/Prelude.IO.hs 2
-    IO, 
-    module Prelude.IO, 
+    IO,
+    module Prelude.IO,
hunk ./lib/Prelude.IO.hs 31
-        putStrLn $ showIOError e 
-        return (error "runMain")) 
+        putStrLn $ showIOError e
+        return (error "runMain"))
hunk ./lib/Prelude.IO.hs 36
-runExpr x = runMain (print x) 
+runExpr x = runMain (print x)
hunk ./lib/Prelude.IO.hs 39
-ioError    ::  IOError -> IO a 
-ioError e   =  (IO $ \w -> FailIO w e) 
+ioError    ::  IOError -> IO a
+ioError e   =  (IO $ \w -> FailIO w e)
hunk ./lib/Prelude.IO.hs 42
-	   
-catch      ::  IO a -> (IOError -> IO a) -> IO a 
+	
+catch      ::  IO a -> (IOError -> IO a) -> IO a
hunk ./lib/Prelude.IO.hs 48
-	   
-	   
+	
+	
hunk ./lib/Prelude.IO.hs 52
-	   
+	
hunk ./lib/Prelude.IO.hs 56
-	   
+	
hunk ./lib/Prelude.IO.hs 59
-	   
-	   
+	
+	
hunk ./lib/Prelude.IO.hs 63
-                 if c == '\n' then return "" else 
+                 if c == '\n' then return "" else
hunk ./lib/Prelude.IO.hs 68
-getContents = unsafeInterleaveIO getContents' where  
+getContents = unsafeInterleaveIO getContents' where
hunk ./lib/Prelude.IO.hs 70
-        ch <- c_getwchar 
+        ch <- c_getwchar
hunk ./lib/Prelude.IO.hs 76
-            
+
hunk ./lib/Prelude.IO.hs 79
-getContents = return (unsafePerformIO getContents') where  
+getContents = return (unsafePerformIO getContents') where
hunk ./lib/Prelude.IO.hs 81
-        ch <- c_getwchar 
+        ch <- c_getwchar
hunk ./lib/Prelude.IO.hs 85
--}    
-    
-readFile :: FilePath -> IO String 
+-}
+
+readFile :: FilePath -> IO String
hunk ./lib/Prelude.IO.hs 96
-                        xs <- unsafeInterleaveIO gc 
+                        xs <- unsafeInterleaveIO gc
hunk ./lib/Prelude.IO.hs 116
-                       putStr (f s)             
+                       putStr (f s)
hunk ./lib/Prelude.IO.hs 127
-	   
+	
hunk ./lib/Prelude.IO.hs 130
-	   
+	
hunk ./lib/Prelude.IO.hs 147
-putChar c = c_putwchar (fromIntegral (ord c)) 
+putChar c = c_putwchar (fromIntegral (ord c))
hunk ./lib/Prelude.IO.hs 149
---TODO EOF == -1 
+--TODO EOF == -1
hunk ./lib/Prelude.IO.hs 152
-    ch <- c_getwchar 
+    ch <- c_getwchar
hunk ./lib/Prelude.IOError.hs 12
-     ioe_handle   :: Maybe Handle,   -- the handle used by the action flagging 
+     ioe_handle   :: Maybe Handle,   -- the handle used by the action flagging
hunk ./lib/Prelude.IOError.hs 30
-  | UserError                
+  | UserError
hunk ./lib/Prelude.IOError.hs 43
-      UserError		-> "user error"              
+      UserError		-> "user error"
hunk ./lib/Prelude.IOError.hs 55
-      showsPrec p iot . 
+      showsPrec p iot .
hunk ./lib/Prelude.IOError.hs 58
-	 _  -> showString " (" . showString s . showString ")")               
+	 _  -> showString " (" . showString s . showString ")")
hunk ./lib/Prelude.IOError.hs 63
-userError str	=  IOError  str 
+userError str	=  IOError  str
hunk ./lib/Prelude.Ratio.hs 4
-data  (Integral a)      => Ratio a = !a :% !a  
+data  (Integral a)      => Ratio a = !a :% !a
hunk ./lib/Prelude.Ratio.hs 21
-    
+
hunk ./lib/Prelude.Ratio.hs 69
-                               (showsPrec (ratPrec+1) x . 
-			        showString " % " . 
+                               (showsPrec (ratPrec+1) x .
+			        showString " % " .
hunk ./lib/Prelude.Text.hs 41
-    show             :: a -> String 
+    show             :: a -> String
hunk ./lib/Prelude.Text.hs 106
-                                           =  [("\\&",t) | 
+                                           =  [("\\&",t) |
hunk ./lib/Prelude.Text.hs 149
-instance  Show Float  where 
+instance  Show Float  where
hunk ./lib/Prelude.Text.hs 151
-           
+
hunk ./lib/Prelude.Text.hs 195
-    
+
hunk ./lib/Prelude.Text.hs 200
-                          = (showParen (p > 10) $ 
-    			     showString "Just " . 
+                          = (showParen (p > 10) $
+    			     showString "Just " .
hunk ./lib/Prelude.Text.hs 210
-       s            
+       s
hunk ./lib/Prelude.Text.hs 230
-                                          shows y . showChar ')') 
+                                          shows y . showChar ')')
hunk ./lib/Prelude.Text.hs 251
-					     	shows z . showChar ')') 
-				s                                                      
+					     	shows z . showChar ')')
+				s
hunk ./lib/Prelude.Text.hs 257
- 
+
hunk ./lib/Prelude.hs 36
-data  Ordering    =  LT | EQ | GT 
+data  Ordering    =  LT | EQ | GT
hunk ./lib/Prelude.hs 40
-data (,) a b = (,) a b                        
-data (,,) a b c = (,,) a b c                    
-data (,,,) a b c d = (,,,) a b c d                 
-data (,,,,) a b c d e = (,,,,) a b c d e             
+data (,) a b = (,) a b
+data (,,) a b c = (,,) a b c
+data (,,,) a b c d = (,,,) a b c d
+data (,,,,) a b c d e = (,,,,) a b c d e
hunk ./lib/Prelude.hs 49
-type String = [Char]     
+type String = [Char]
hunk ./lib/Prelude.hs 51
-data Int                  
-data Char               
-data Float               
+data Int
+data Char
+data Float
hunk ./lib/Prelude.hs 78
-    enumFromThenTo x y z = 
+    enumFromThenTo x y z =
hunk ./lib/Prelude.hs 111
-    quot, rem        :: a -> a -> a   
+    quot, rem        :: a -> a -> a
hunk ./lib/Prelude.hs 132
-    toInt x = toInt (toInteger x) 
+    toInt x = toInt (toInteger x)
hunk ./lib/Prelude.hs 178
-    
+
hunk ./lib/Prelude.hs 185
-   
+
hunk ./lib/Prelude.hs 188
-    
+
hunk ./lib/Prelude.hs 208
-        --      All except exponent, significand, 
+        --      All except exponent, significand,
hunk ./lib/Prelude.hs 222
-      | x<0  && y>0   =  pi + atan (y/x) 
+      | x<0  && y>0   =  pi + atan (y/x)
hunk ./lib/Prelude.hs 231
+
hunk ./lib/Prelude.hs 233
- 
hunk ./lib/Prelude.hs 297
-sequence       :: Monad m => [m a] -> m [a] 
+sequence       :: Monad m => [m a] -> m [a]
hunk ./lib/Prelude.hs 300
-sequence_      :: Monad m => [m a] -> m () 
+sequence_      :: Monad m => [m a] -> m ()
hunk ./lib/Prelude.hs 314
+
hunk ./lib/Prelude.hs 318
-    
hunk ./lib/Prelude.hs 335
-    x == y = case x /= y of 
+    x == y = case x /= y of
hunk ./lib/Prelude.hs 339
-        True -> False 
+        True -> False
hunk ./lib/Prelude.hs 395
-                                        
+
hunk ./lib/Prelude.hs 408
-    
+
hunk ./lib/Prelude.hs 429
-until p f x 
+until p f x
hunk ./lib/Prelude.hs 440
+
hunk ./lib/Prelude.hs 445
- 
hunk ./lib/Prelude.hs 446
---    map, (++), filter, concat, concatMap, 
---    head, last, tail, init, null, length, (!!), 
+--    map, (++), filter, concat, concatMap,
+--    head, last, tail, init, null, length, (!!),
hunk ./lib/Prelude.hs 453
---    sum, product, maximum, minimum, 
+--    sum, product, maximum, minimum,
hunk ./lib/Prelude.hs 605
-scanr f q0 (x:xs) =  f x q : qs where qs@(q:_) = scanr f q0 xs 
+scanr f q0 (x:xs) =  f x q : qs where qs@(q:_) = scanr f q0 xs
hunk ./lib/Prelude.hs 611
-scanr1 f (x:xs) =  f x q : qs where qs@(q:_) = scanr1 f xs 
+scanr1 f (x:xs) =  f x q : qs where qs@(q:_) = scanr1 f xs
hunk ./lib/Prelude.hs 661
--- returns the remaining suffix.  span p xs is equivalent to 
+-- returns the remaining suffix.  span p xs is equivalent to
hunk ./lib/Prelude.hs 667
-takeWhile p (x:xs) 
+takeWhile p (x:xs)
hunk ./lib/Prelude.hs 681
-span p xs@(x:xs') 
-            | p x       =  (x:ys,zs) 
+span p xs@(x:xs')
+            | p x       =  (x:ys,zs)
hunk ./lib/Prelude.hs 761
-sum              =  foldl (+) 0  
+sum              =  foldl (+) 0
hunk ./lib/Prelude.hs 805
--- unzip transforms a list of pairs into a pair of lists.  
+-- unzip transforms a list of pairs into a pair of lists.
hunk ./lib/Prelude.hs 815
- 
+
hunk ./lib/Prelude.hs 821
-    putStrLn s    
+    putStrLn s
hunk ./lib/Prelude.hs 824
-    
-    
-    
+
+
+
hunk ./lib/Prelude.hs 855
-    
+
hunk ./lib/Prelude.hs 877
-    
+
hunk ./lib/Prelude.hs 881
-    compare (x,y) (a,b) = case compare x a of 
+    compare (x,y) (a,b) = case compare x a of
hunk ./lib/Prelude.hs 906
-    
+
hunk ./lib/Random.hs 52
-  showsPrec p (StdGen s1 s2) = 
-     showsPrec p s1 . 
+  showsPrec p (StdGen s1 s2) =
+     showsPrec p s1 .
hunk ./lib/Random.hs 62
-    where 
+    where
hunk ./lib/Random.hs 105
-  randomRs ival g = x : randomRs ival g' where 
+  randomRs ival g = x : randomRs ival g' where
hunk ./lib/Random.hs 116
-  randomR (a,b) g = 
+  randomR (a,b) g =
hunk ./lib/Random.hs 122
-  randomR (a,b) g = 
+  randomR (a,b) g =
hunk ./lib/Random.hs 133
- 
+
hunk ./lib/Random.hs 141
-  
+
hunk ./lib/Random.hs 169
-       f n acc g = 
+       f n acc g =
hunk ./lib/Random.hs 176
-randomIvalDouble (l,h) fromDouble rng 
+randomIvalDouble (l,h) fromDouble rng
hunk ./lib/Random.hs 178
-  | otherwise = 
+  | otherwise =
hunk ./lib/Random.hs 180
-         (x, rng') -> 
+         (x, rng') ->
hunk ./lib/Random.hs 182
-	     scaled_x = 
-		fromDouble ((l+h)/2) + 
+	     scaled_x =
+		fromDouble ((l+h)/2) +
hunk ./lib/Random.hs 203
-    
+
hunk ./lib/Random.hs 229
---ptr_a = unsafePerformIO $ malloc 
---ptr_b = unsadePerformIO $ malloc 
+--ptr_a = unsafePerformIO $ malloc
+--ptr_b = unsadePerformIO $ malloc
hunk ./lib/Ratio.hs 12
-data  (Integral a)      => Ratio a = !a :% !a  
+data  (Integral a)      => Ratio a = !a :% !a
hunk ./lib/Ratio.hs 42
-    (x:%y) == (x':%y')  =  x == x' && y == y' 
+    (x:%y) == (x':%y')  =  x == x' && y == y'
hunk ./lib/Ratio.hs 47
-    
+
hunk ./lib/Ratio.hs 95
-                               (showsPrec (ratPrec+1) x . 
-			        showString " % " . 
+                               (showsPrec (ratPrec+1) x .
+			        showString " % " .
hunk ./lib/System/Console.GetOpt.hs 6
--- 
+--
hunk ./lib/System/Console.GetOpt.hs 12
--- in a standalone program.  It is essentially a Haskell port of the GNU 
+-- in a standalone program.  It is essentially a Haskell port of the GNU
hunk ./lib/System/Console.GetOpt.hs 36
-over 1100 lines, we need only 195 here, including a 46 line example! 
+over 1100 lines, we need only 195 here, including a 46 line example!
hunk ./lib/System/Console.GetOpt.hs 96
--- the header (first argument) and the options described by the 
+-- the header (first argument) and the options described by the
hunk ./lib/System/Console.GetOpt.hs 137
-* The actual command line arguments (presumably got from 
+* The actual command line arguments (presumably got from
hunk ./lib/System/Console.GetOpt.hs 258
---          -V, -?  --version, --release  show version info   
+--          -V, -?  --version, --release  show version info
hunk ./lib/System/Console.GetOpt.hs 260
---          -v        --verbose             verbosely list files  
---          -V, -?    --version, --release  show version info     
---          -o[FILE]  --output[=FILE]       use FILE for dump     
+--          -v        --verbose             verbosely list files
+--          -V, -?    --version, --release  show version info
+--          -o[FILE]  --output[=FILE]       use FILE for dump
hunk ./lib/System/Console.GetOpt.hs 274
->    
+>
hunk ./lib/System/Console.GetOpt.hs 277
->    
->    data Flag 
->     = Verbose  | Version 
+>
+>    data Flag
+>     = Verbose  | Version
hunk ./lib/System/Console.GetOpt.hs 282
->    
+>
hunk ./lib/System/Console.GetOpt.hs 291
->    
+>
hunk ./lib/System/Console.GetOpt.hs 295
->    
+>
hunk ./lib/System/Console.GetOpt.hs 297
->    compilerOpts argv = 
+>    compilerOpts argv =
hunk ./lib/System/IO.Binary.hs 12
-readBinaryFile :: FilePath -> IO [Word8] 
+readBinaryFile :: FilePath -> IO [Word8]
hunk ./lib/System/IO.Binary.hs 21
-                        xs <- unsafeInterleaveIO gc 
+                        xs <- unsafeInterleaveIO gc
hunk ./lib/System.hs 1
-module System ( 
+module System (
hunk ./lib/System.hs 11
-data ExitCode = ExitSuccess | ExitFailure Int 
+data ExitCode = ExitSuccess | ExitFailure Int
hunk ./lib/System.hs 27
-    c_exit 0 
+    c_exit 0
hunk ./lib/System.hs 30
-    c_exit n 
+    c_exit n
hunk ./lib/System.hs 36
-getProgName = peek jhc_progname >>= peekCString 
+getProgName = peek jhc_progname >>= peekCString
hunk ./lib/System.hs 40
-    let f n = peekElemOff argv n >>= peekCString 
+    let f n = peekElemOff argv n >>= peekCString
hunk ./lib/System.hs 44
-getEnv s = withCString s c_getenv >>= \p -> 
+getEnv s = withCString s c_getenv >>= \p ->
hunk ./lib/System.hs 48
-getEnv s = case lookup s theEnvironment of 
+getEnv s = case lookup s theEnvironment of
hunk ./lib/System.hs 50
-    Nothing -> fail $ "getEnv: " ++ s 
+    Nothing -> fail $ "getEnv: " ++ s
hunk ./lib/System.hs 60
-    xs <- mapM peekCString $ takeWhile (/= nullPtr) (iterate (`plusPtr` sizeOf (undefined :: CString)) ep) 
+    xs <- mapM peekCString $ takeWhile (/= nullPtr) (iterate (`plusPtr` sizeOf (undefined :: CString)) ep)
hunk ./lib/System.hs 66
-    0 -> return ExitSuccess 
+    0 -> return ExitSuccess
hunk ./lib/Test/QuickCheck/Batch.hs 6
--- 
+--
hunk ./lib/Test/QuickCheck/Batch.hs 21
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 25
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 27
- - testOptions = TestOptions 
+ - testOptions = TestOptions
hunk ./lib/Test/QuickCheck/Batch.hs 33
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 36
- - prop_sort2 xs = 
+ - prop_sort2 xs =
hunk ./lib/Test/QuickCheck/Batch.hs 58
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 66
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 70
- - 
+ -
hunk ./lib/Test/QuickCheck/Batch.hs 83
-   , runTests		-- :: String -> TestOptions -> 
+   , runTests		-- :: String -> TestOptions ->
hunk ./lib/Test/QuickCheck/Batch.hs 107
-defOpt = TestOptions 
+defOpt = TestOptions
hunk ./lib/Test/QuickCheck/Batch.hs 118
-tests :: Config -> Gen Result -> StdGen -> Int -> Int -> [[String]] 
+tests :: Config -> Gen Result -> StdGen -> Int -> Int -> [[String]]
hunk ./lib/Test/QuickCheck/Batch.hs 176
-	theTest = tests (batch n debug) (evaluate a) (mkStdGen 0) 0 0 []     
+	theTest = tests (batch n debug) (evaluate a) (mkStdGen 0) 0 0 []
hunk ./lib/Test/QuickCheck/Batch.hs 191
-	tr n (action:actions) others c = 
+	tr n (action:actions) others c =
hunk ./lib/Test/QuickCheck/Batch.hs 194
-		(TestOk _ m _) 
+		(TestOk _ m _)
hunk ./lib/Test/QuickCheck/Batch.hs 197
-		(TestExausted s m ss) 
+		(TestExausted s m ss)
hunk ./lib/Test/QuickCheck/Batch.hs 201
-		(TestAborted e) 
+		(TestAborted e)
hunk ./lib/Test/QuickCheck/Batch.hs 209
-	fa (f,n,no) = 
+	fa (f,n,no) =
hunk ./lib/Test/QuickCheck/Batch.hs 211
-	     putStr ("    ** test " 
+	     putStr ("    ** test "
hunk ./lib/Test/QuickCheck/Poly.hs 6
--- 
+--
hunk ./lib/Test/QuickCheck/Poly.hs 11
--- This is an attempt to emulate polymorphic types for the 
+-- This is an attempt to emulate polymorphic types for the
hunk ./lib/Test/QuickCheck/Poly.hs 13
--- 
+--
hunk ./lib/Test/QuickCheck/Poly.hs 37
- - 
+ -
hunk ./lib/Test/QuickCheck/Utils.hs 6
--- 
+--
hunk ./lib/Test/QuickCheck/Utils.hs 27
-isAssociativeBy :: (Show a,Testable prop) 
+isAssociativeBy :: (Show a,Testable prop)
hunk ./lib/Test/QuickCheck/Utils.hs 29
-isAssociativeBy (===) src (**) = 
+isAssociativeBy (===) src (**) =
hunk ./lib/Test/QuickCheck/Utils.hs 38
-isCommutableBy :: (Show a,Testable prop) 
+isCommutableBy :: (Show a,Testable prop)
hunk ./lib/Test/QuickCheck/Utils.hs 49
-isTotalOrder x y = 
+isTotalOrder x y =
hunk ./lib/Test/QuickCheck.hs 6
--- 
+--
hunk ./lib/Test/QuickCheck.hs 23
-  
+
hunk ./lib/Test/QuickCheck.hs 27
- 
+
hunk ./lib/Test/QuickCheck.hs 31
-  
+
hunk ./lib/Test/QuickCheck.hs 37
-  
+
hunk ./lib/Test/QuickCheck.hs 40
-  
+
hunk ./lib/Test/QuickCheck.hs 45
-  
+
hunk ./lib/Test/QuickCheck.hs 51
-  
+
hunk ./lib/Test/QuickCheck.hs 176
-  arbitrary     = liftM3 fraction arbitrary arbitrary arbitrary 
+  arbitrary     = liftM3 fraction arbitrary arbitrary arbitrary
hunk ./lib/Test/QuickCheck.hs 180
-  arbitrary     = liftM3 fraction arbitrary arbitrary arbitrary 
+  arbitrary     = liftM3 fraction arbitrary arbitrary arbitrary
hunk ./lib/Test/QuickCheck.hs 289
-         
+
hunk ./lib/Test/QuickCheck.hs 302
-         
+
hunk ./lib/Test/QuickCheck.hs 308
-tests :: Config -> Gen Result -> StdGen -> Int -> Int -> [[String]] -> IO () 
+tests :: Config -> Gen Result -> StdGen -> Int -> Int -> [[String]] -> IO ()
hunk ./lib/Time.hs 2
-    ClockTime, 
+    ClockTime,
hunk ./lib/Time.hs 7
-    getClockTime, 
-    addToClockTime, 
+    getClockTime,
+    addToClockTime,
hunk ./lib/Time.hs 10
-    toCalendarTime, 
-    toUTCTime, 
+    toCalendarTime,
+    toUTCTime,
hunk ./lib/Time.hs 13
-    calendarTimeToString, 
-    formatCalendarTime 
+    calendarTimeToString,
+    formatCalendarTime
hunk ./lib/Time.hs 28
-data Day   =  Sunday | Monday  | Tuesday  | Wednesday | Thursday 
+data Day   =  Sunday | Monday  | Tuesday  | Wednesday | Thursday
hunk ./lib/Time.hs 52
-     
+
hunk ./lib/Time.hs 55
-     
+
hunk ./lib/Time.hs 66
-formatCalendarTime l fmt ct@(CalendarTime year mon day hour min sec sdec 
+formatCalendarTime l fmt ct@(CalendarTime year mon day hour min sec sdec
hunk ./lib/Time.hs 102
-        decode 'u' = show (let n = fromEnum wday in 
+        decode 'u' = show (let n = fromEnum wday in
hunk ./lib/Time.hs 104
-        decode 'V' = 
-            let (week, days) = 
-                   (yday + 7 - if fromEnum wday > 0 then 
+        decode 'V' =
+            let (week, days) =
+                   (yday + 7 - if fromEnum wday > 0 then
hunk ./lib/Time.hs 109
-                          week+1 
+                          week+1
hunk ./lib/Time.hs 112
-        decode 'W' = 
-            show2 ((yday + 7 - if fromEnum wday > 0 then 
+        decode 'W' =
+            show2 ((yday + 7 - if fromEnum wday > 0 then