arbtt 0.1.1 → 0.1.2

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

arbtt.cabal +1/−1
src/Stats.hs +5/−3

arbtt.cabal view

@@ -1,5 +1,5 @@ name:               arbtt-version:            0.1.1+version:            0.1.2 license:            GPL license-file:       LICENSE category:           Desktop

src/Stats.hs view

@@ -46,6 +46,7 @@ 	, fractionSel :: Double 	, fractionSelRec :: Double 	, sums :: M.Map Activity Integer+	, allTags :: TimeLog ActivityData 	, tags :: TimeLog ActivityData 	} @@ -61,6 +62,7 @@ 	  , fractionSel = fromIntegral (totalTimeSel c) / (realToFrac (timeDiff c) * 1000) 	  , fractionSelRec = fromIntegral (totalTimeSel c) / fromIntegral (totalTimeRec c) 	  , sums = sumUp tags+	  , allTags 	  , tags 	  } in c @@ -80,7 +82,7 @@ 		+.+ row "LastRecord" 		        [show lastDate] 		+.+ row "Number of records"-		        [show (length tags)]+		        [show (length allTags)] 		+.+ row "Total time recorded" 		        [formatSeconds (fromIntegral totalTimeRec / 1000)] 		+.+ row "Total time selected"@@ -98,7 +100,7 @@ 		      let perc = fromIntegral time/fromIntegral totalTimeSel*100 in 		      if perc >= minPercentage 	 	      then (+.+ row (show tag) [-		      		formatSeconds (fromIntegral time/100),+		      		formatSeconds (fromIntegral time/1000), 				printf "%.1f%%" perc]) 		      else id 		      )@@ -132,7 +134,7 @@ 		      let perc = fromIntegral time/fromIntegral totalTimeSel*100 in 		      if perc >= minPercentage 	 	      then (+.+ row (show tag) [-		      		formatSeconds (fromIntegral time/100),+		      		formatSeconds (fromIntegral time/1000), 				printf "%.1f%%" perc]) 		      else id 		      )