Optparse removed unused function
This commit is contained in:
parent
41d7988972
commit
75202b4be8
@ -1,6 +1,5 @@
|
|||||||
module GHCMod.Options (
|
module GHCMod.Options (
|
||||||
parseArgs,
|
parseArgs,
|
||||||
parseCommandsFromList,
|
|
||||||
GhcModCommands(..)
|
GhcModCommands(..)
|
||||||
) where
|
) where
|
||||||
|
|
||||||
@ -19,13 +18,6 @@ parseArgs =
|
|||||||
( fullDesc
|
( fullDesc
|
||||||
<> header "ghc-mod: Happy Haskell Programming" )
|
<> header "ghc-mod: Happy Haskell Programming" )
|
||||||
|
|
||||||
parseCommandsFromList :: [String] -> Either String GhcModCommands
|
|
||||||
parseCommandsFromList args =
|
|
||||||
case execParserPure (prefs idm) (info commandsSpec idm) args of
|
|
||||||
Success a -> Right a
|
|
||||||
Failure h -> Left $ show h
|
|
||||||
CompletionInvoked _ -> error "WTF"
|
|
||||||
|
|
||||||
helpVersion :: Parser (a -> a)
|
helpVersion :: Parser (a -> a)
|
||||||
helpVersion =
|
helpVersion =
|
||||||
helper <*>
|
helper <*>
|
||||||
|
Loading…
Reference in New Issue
Block a user