Monadoro 0.3.2.0 → 0.3.3.0

raw patch · 2 files changed

+5/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Monadoro.cabal +1/−1
• src/CLI.hs +4/−7

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           Monadoro-version:        0.3.2.0+version:        0.3.3.0 synopsis:       A minimalistic CLI Pomodoro timer. description:    A Pomodoro timer with two modes: single-pomodoro (default), and four-pomodoro (`--session`). category:       Tools

@@ -28,13 +28,10 @@   "[INTERVAL [...]]"  runPomodoros :: [String] -> IO ()-runPomodoros xs = runPomodoro $ filterParams xs--runPomodoro :: [String] -> IO ()-runPomodoro xs = do+runPomodoros xs = do     warnAboutErrorsIfAny invalidIntervals     runTimer (getDelayIfNeeded xs) validIntervals-    where (validIntervals, invalidIntervals) = checkInput xs+    where (validIntervals, invalidIntervals) = checkInput $ filterParams xs  runSession :: [String] -> IO () runSession xs = session (getDelayIfNeeded xs)@@ -45,10 +42,10 @@ runTimer delayer (t:ts) = runTimer delayer [t] >> runTimer delayer ts  filterParams :: [String] -> [String]-filterParams xs = (remove "-n" . remove "--nodelay") xs+filterParams = remove "-n" . remove "--nodelay"  remove :: String -> [String] -> [String]-remove element list = filter (/=element) list+remove element = filter (/=element)  showManual :: IO () showManual = do