ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-09-11 10:45:25 +03:00
Code Issues Projects Releases Wiki Activity

Remove tryP, it's unused

Browse Source
This commit is contained in:
Huw Campbell 2018-06-14 18:02:20 +10:00
parent 49a1681475
commit c38c20fb91
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Options/Applicative/Internal.hs
View File

@ -30,7 +30,7 @@ import Prelude
import Control.Monad (MonadPlus(..), liftM, ap, guard)
import Control.Monad.Trans.Class (MonadTrans, lift)
import Control.Monad.Trans.Except
(runExcept, runExceptT, withExcept, ExceptT(..), throwE, catchE)
(runExcept, runExceptT, withExcept, ExceptT(..), throwE)
import Control.Monad.Trans.Reader
(mapReaderT, runReader, runReaderT, Reader, ReaderT, ask)
import Control.Monad.Trans.State (StateT, get, put, modify, evalStateT, runStateT)
@ -43,7 +43,6 @@ class (Alternative m, MonadPlus m) => MonadP m where
getPrefs :: m ParserPrefs
missingArgP :: ParseError -> Completer -> m a
tryP :: m a -> m (Either ParseError a)
errorP :: ParseError -> m a
exitP :: IsCmdStart -> ArgPolicy -> Parser b -> Maybe a -> m a
@ -79,7 +78,6 @@ instance MonadP P where
getPrefs = P . lift . lift $ ask
missingArgP e _ = errorP e
tryP (P p) = P $ lift $ runExceptT p
exitP i _ p = P . maybe (throwE . MissingError i . SomeParser $ p) return
errorP = P . throwE
@ -152,7 +150,6 @@ instance MonadP Completion where
getPrefs = Completion $ lift ask
missingArgP _ = Completion . lift . lift . ComplOption
tryP (Completion p) = Completion $ catchE (Right <$> p) (return . Left)
exitP _ a p _ = Completion . lift . lift $ ComplParser (SomeParser p) a
errorP = Completion . throwE