homura-stopwatch 0.1.3 → 0.2.0

raw patch · 2 files changed

+9/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• homura-stopwatch.cabal +3/−3
• src/Lib.hs +6/−1

@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.2.+-- This file has been generated from package.yaml by hpack version 0.33.0. -- -- see: https://github.com/sol/hpack ----- hash: 3be341d8b5700047d9fa3c6406ff3e05ff4e7f275daf4fab10484f878e52000f+-- hash: 4d34d81226128601c7d28a9324c8a893c66238bbc1219f147d3438e350ef29d0  name:           homura-stopwatch-version:        0.1.3+version:        0.2.0 description:    Please see the README on GitHub at <https://github.com/ncaq/homura-stopwatch#readme> homepage:       https://github.com/ncaq/homura-stopwatch#readme bug-reports:    https://github.com/ncaq/homura-stopwatch/issues

@@ -57,5 +57,10 @@ workPrettyStr :: Work -> String workPrettyStr work   = case fromSeconds (workTime work) of-      (d, 0) -> workName work <> "\t" <> show (toInteger $ durationHours d) <> ":" <> show (toInteger $ durationMinutes d)+      (d, 0) ->+        concatMap (++ "\t")+        [ workName work+        , show (toInteger $ durationHours d) <> ":" <> show (toInteger $ durationMinutes d)+        , show (fromIntegral (toInteger (durationHours d)) + (fromIntegral (toInteger (durationMinutes d)) / (60 :: Double)))+        ]       o -> error $ "出力がヘンになりました: " <> show o