Remove redundant usage of tryP.

pcapriotti · Dec 23, 2012 · 6f2a01d · 6f2a01d
1 parent e7cc156
commit 6f2a01d
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/Options/Applicative/Common.hs b/Options/Applicative/Common.hs
@@ -99,10 +99,7 @@ optMatches disambiguate opt arg = case opt of
   CmdReader _ f ->
     flip fmap (f arg) $ \subp args -> do
       setContext (Just arg) subp
-      x <- tryP $ runParser (infoParser subp) args
-      case x of
-        Left e -> errorP e
-        Right r -> return r
+      runParser (infoParser subp) args
   where
     parsed =
       case arg of