[commit: packages/hpc] master: M-x untabify & M-x delete-trailing-whitespace (a071321)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/hpc

On branch  : master
Link       : http://git.haskell.org/packages/hpc.git/commitdiff/a071321d33188fb958f42e36778464617c56cfb9

>---------------------------------------------------------------

commit a071321d33188fb958f42e36778464617c56cfb9
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Sat Dec 27 23:46:22 2014 +0100

    M-x untabify & M-x delete-trailing-whitespace


>---------------------------------------------------------------

a071321d33188fb958f42e36778464617c56cfb9
 Trace/Hpc/Reflect.hsc | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/Trace/Hpc/Reflect.hsc b/Trace/Hpc/Reflect.hsc
index 16b27ca..fe30624 100644
--- a/Trace/Hpc/Reflect.hsc
+++ b/Trace/Hpc/Reflect.hsc
@@ -39,25 +39,25 @@ moduleInfoList ptr
         tickCount <- (#peek HpcModuleInfo, tickCount) ptr
         hashNo    <- (#peek HpcModuleInfo, hashNo) ptr
         tixArr    <- (#peek HpcModuleInfo, tixArr) ptr
-	next      <- (#peek HpcModuleInfo, next) ptr
+        next      <- (#peek HpcModuleInfo, next) ptr
         rest      <- moduleInfoList next
         return $ ModuleInfo modName tickCount (toHash (hashNo :: Int)) tixArr : rest
 
 clearTix :: IO ()
 clearTix = do
       sequence_ [ pokeArray ptr $ take (fromIntegral count) $ repeat 0
-      	      	| ModuleInfo _mod count _hash ptr <- modInfo
-		]
+                | ModuleInfo _mod count _hash ptr <- modInfo
+                ]
       return ()
 
 
 examineTix :: IO Tix
 examineTix = do
       mods <- sequence [ do tixs <- peekArray (fromIntegral count) ptr
-      	      	       	    return $ TixModule mod' hash (fromIntegral count)
-			    	   $ map fromIntegral tixs
-      	      	       | (ModuleInfo mod' count hash ptr) <- modInfo
-		       ]
+                            return $ TixModule mod' hash (fromIntegral count)
+                                   $ map fromIntegral tixs
+                       | (ModuleInfo mod' count hash ptr) <- modInfo
+                       ]
       return $ Tix mods
 
 -- requirement that the tix be of the same shape as the
@@ -67,14 +67,13 @@ updateTix (Tix modTixes)
   | length modTixes /= length modInfo = error "updateTix failed"
   | otherwise = do
       sequence_ [ pokeArray ptr $ map fromIntegral tixs
-      	      	| (ModuleInfo mod1 count1 hash1 ptr,
-		   TixModule mod2 hash2 count2 tixs) <- zip modInfo modTixes
-		, if mod1 /= mod2 
-		|| (fromIntegral count1) /= count2 
-		|| hash1 /= hash2
-		|| length tixs /= count2
-		  then error "updateTix failed"
-		  else True
-		]
+                | (ModuleInfo mod1 count1 hash1 ptr,
+                   TixModule mod2 hash2 count2 tixs) <- zip modInfo modTixes
+                , if mod1 /= mod2
+                || (fromIntegral count1) /= count2
+                || hash1 /= hash2
+                || length tixs /= count2
+                  then error "updateTix failed"
+                  else True
+                ]
       return ()
-