practice-room 0.0.0 → 0.0.1

raw patch · 2 files changed

+12/−7 lines, 2 files

Files

• practice-room.cabal +5/−5
• src/Main.hs +7/−2

@@ -1,8 +1,8 @@ Name:                 practice-room-Version:              0.0.0+Version:              0.0.1 Build-type:           Simple-Synopsis:             Watch the practice time for whatever practice you are trying to make, e.g. a piano?-Description:          +Synopsis:             Practice Room+Description:          Watch the practice time for whatever practice you are trying to make, e.g. a piano?  License:              BSD3 License-file:         LICENSE@@ -10,8 +10,8 @@ Maintainer:           Jinjing Wang Build-Depends:        base Cabal-version:        >= 1.2-category:             -homepage:             +category:             Utils+homepage:             http://github.com/nfjinjing/practice-room data-files:           changelog.md, known-issues.md, Nemesis  Executable            practice-room

@@ -11,7 +11,7 @@ import System.Directory import Control.Monad hiding (join) import System.Environment-import Data.Maybe (isJust, isNothing)+import Data.Maybe (isJust, fromMaybe) import Text.Printf  import qualified Data.ByteString.Lazy.Char8 as B@@ -57,8 +57,13 @@                     show_stats = do-        let total_time = saved_config.intervals.map (\x -> x.end_time + (-x.start_time)).sum+        timestamp <- now ^ t2i         +        let saved_practice_time = saved_config.intervals.map (\x -> x.end_time + (-x.start_time)).sum+        +            elapsed_practice_time_if_started = ( saved_config.started ^ (negate > (+ timestamp)) ).fromMaybe 0+            +            total_time = saved_practice_time + elapsed_practice_time_if_started             hours = total_time `div` 3600             minites = ( total_time `mod` 3600 ) `div` 60             seconds = total_time `mod` 60