diff --git a/Monadoro.cabal b/Monadoro.cabal
--- a/Monadoro.cabal
+++ b/Monadoro.cabal
@@ -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
diff --git a/src/CLI.hs b/src/CLI.hs
--- a/src/CLI.hs
+++ b/src/CLI.hs
@@ -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