practice-room 0.0.1 → 0.0.2

raw patch · 2 files changed

+11/−6 lines, 2 files

Files

• practice-room.cabal +1/−1
• src/Main.hs +10/−5

@@ -1,5 +1,5 @@ Name:                 practice-room-Version:              0.0.1+Version:              0.0.2 Build-type:           Simple Synopsis:             Practice Room Description:          Watch the practice time for whatever practice you are trying to make, e.g. a piano?

@@ -14,7 +14,7 @@ import Data.Maybe (isJust, fromMaybe) import Text.Printf -import qualified Data.ByteString.Lazy.Char8 as B+import qualified Data.ByteString.Char8 as B   @@ -56,6 +56,13 @@         | otherwise    = show_help              +      format_seconds secs = +        let hours = secs `div` 3600+            minites = ( secs `mod` 3600 ) `div` 60+            seconds = secs `mod` 60+        in+        printf "%d hours, %d minites and %d seconds" hours minites seconds+                   show_stats = do         timestamp <- now ^ t2i         @@ -64,16 +71,14 @@             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                 -        log - printf "Practiced: %d hours, %d minites and %d seconds" hours minites seconds+        log - "Practiced: " +  format_seconds total_time         -- log - printf "Practiced: %d hours and %d minites" hours minites                           when ( saved_config.started.isJust ) - do           log "Still practicing..."+          log - "This section: " + format_seconds elapsed_practice_time_if_started        start_practice =         if saved_config.started.isJust