Whitespace cleanup
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 17 Sep 2014 11:04:14 +0000 (11:04 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 17 Sep 2014 11:04:14 +0000 (11:04 +0000)
src/TimeLog.hs
src/stats-main.hs

index f626d4b..03045ac 100644 (file)
@@ -105,13 +105,13 @@ readTimeLog filename = do
         return $ parseTimeLog content
 
 parseTimeLog :: (NFData a, ListOfStringable a) => BS.ByteString -> TimeLog a
-parseTimeLog input = 
+parseTimeLog input =
     if startString == magic
        then go Nothing rest off
        else error $
             "Timelog starts with unknown marker " ++
             show (map (chr.fromIntegral) (BS.unpack startString))
-  where                
+  where
     (startString, rest, off) = runGetState (getLazyByteString (BS.length magic)) input 0
     go prev input off =
         let (v, rest, off') = runGetState (ls_get strs) input off
index 3894e77..7b6342e 100644 (file)
@@ -179,12 +179,12 @@ main = do
   categorizer <- readCategorizer (optCategorizeFile flags)
 
   timelog <- BS.readFile (optLogFile flags)
-  size <- fileSize <$> getFileStatus (optLogFile flags)
   isTerm <- hIsTerminalDevice stderr
 
   trackedTimelog <- case isTerm of
     True -> do
       hSetBuffering stderr NoBuffering
+      size <- fileSize <$> getFileStatus (optLogFile flags)
       trackProgressWithChunkSize (fromIntegral size `div` 100) (\_ b -> do
         (_height, width) <- getTermSize
         hPutChar stderr '\r'
@@ -199,10 +199,11 @@ main = do
 
   let captures = parseTimeLog trackedTimelog
   let allTags = categorizer captures
+
   when (null allTags) $ do
      putStrLn "Nothing recorded yet"
      exitFailure
-      
+
   let filters = (if optAlsoInactive flags then id else (defaultFilter:)) $ optFilters flags
 
   let rep = case optReports flags of