diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
 Changes
 =======
 
+Version 3.2.1
+-------------
+
+* Fix option parser (#25)
+
 Version 3.2
 -----------
 
diff --git a/Test/Tasty/Silver/Filter.hs b/Test/Tasty/Silver/Filter.hs
--- a/Test/Tasty/Silver/Filter.hs
+++ b/Test/Tasty/Silver/Filter.hs
@@ -66,7 +66,7 @@
 compileRegex = either (const Nothing) Just . RS.compile R.defaultCompOpt R.defaultExecOpt
 
 parseFilter :: forall v . IsOption v => (String -> RegexFilter) -> ([RegexFilter] -> v) -> Parser v
-parseFilter mkRF mkV = mkV <$> many ( option parse ( long name <> help helpString))
+parseFilter mkRF mkV = mkV <$> some ( option parse ( long name <> help helpString))
   where
     name = untag (optionName :: Tagged v String)
     helpString = untag (optionHelp :: Tagged v String)
diff --git a/Test/Tasty/Silver/Interactive.hs b/Test/Tasty/Silver/Interactive.hs
--- a/Test/Tasty/Silver/Interactive.hs
+++ b/Test/Tasty/Silver/Interactive.hs
@@ -112,6 +112,7 @@
     , Option (Proxy :: Proxy NumThreads)
     , Option (Proxy :: Proxy ExcludeFilters)
     , Option (Proxy :: Proxy IncludeFilters)
+    , Option (Proxy :: Proxy AcceptTests)
     ] $
   \opts tree ->
       Just $ runTestsInteractive dis opts (filterWithRegex opts tree)
diff --git a/Test/Tasty/Silver/Internal.hs b/Test/Tasty/Silver/Internal.hs
--- a/Test/Tasty/Silver/Internal.hs
+++ b/Test/Tasty/Silver/Internal.hs
@@ -38,12 +38,7 @@
   parseValue = fmap AcceptTests . safeRead
   optionName = return "accept"
   optionHelp = return "Accept current results of golden tests"
-  optionCLParser =
-    fmap AcceptTests $
-    switch
-      (  long (untag (optionName :: Tagged AcceptTests String))
-      <> help (untag (optionHelp :: Tagged AcceptTests String))
-      )
+  optionCLParser =  flagCLParser Nothing (AcceptTests True)
 
 -- | Read the file if it exists, else return Nothing.
 -- Useful for reading golden files.
diff --git a/tasty-silver.cabal b/tasty-silver.cabal
--- a/tasty-silver.cabal
+++ b/tasty-silver.cabal
@@ -1,5 +1,5 @@
 name:                tasty-silver
-version:             3.2
+version:             3.2.1
 synopsis:            A fancy test runner, including support for golden tests.
 description:
   This package provides a fancy test runner and support for «golden testing».
diff --git a/tests/test.hs b/tests/test.hs
--- a/tests/test.hs
+++ b/tests/test.hs
@@ -62,8 +62,8 @@
 
 testCheckRF :: TestTree
 testCheckRF = testGroup "Filter.checkRF"
-    [ testCase "empty1" $ checkRF True [] "/" @?= True
-    , testCase "empty1" $ checkRF False [] "/" @?= False
-    , testCase "empty2" $ checkRF True [] "/sdfg" @?= True
-    , testCase "empty2" $ checkRF False [] "/sdfg" @?= False
+    [ testCase "empty1a" $ checkRF True [] "/" @?= True
+    , testCase "empty1b" $ checkRF False [] "/" @?= False
+    , testCase "empty2a" $ checkRF True [] "/sdfg" @?= True
+    , testCase "empty2b" $ checkRF False [] "/sdfg" @?= False
     ]