mirror of
https://github.com/github/semantic.git
synced 2024-11-24 08:54:07 +03:00
parseAST handles this
This commit is contained in:
parent
08cbd88e71
commit
7e358a8c2e
@ -63,14 +63,6 @@ data Format = Show
|
||||
deriving (Read)
|
||||
|
||||
|
||||
-- pass in a file as an argument and parse its contents
|
||||
fileInput :: Parser Input
|
||||
fileInput = FileInput <$> strOption
|
||||
( long "file"
|
||||
<> short 'f'
|
||||
<> metavar "FILENAME"
|
||||
<> help "Input file" )
|
||||
|
||||
-- Read from stdin
|
||||
stdInput :: Parser Input
|
||||
stdInput = flag' StdInput
|
||||
|
Loading…
Reference in New Issue
Block a user