github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

add Read instances

Browse Source
This commit is contained in:
Ayman Nadeem 2019-10-10 14:08:41 -04:00
parent 5a707829d2
commit a589448ea2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-ast/src/CLI.hs
View File

@ -17,6 +17,7 @@ data SemanticAST = SemanticAST
{ sourceFilePath :: Input { sourceFilePath :: Input
, format :: Format , format :: Format
} }
} deriving (Read)
parseAST :: Parser SemanticAST parseAST :: Parser SemanticAST
parseAST = SemanticAST parseAST = SemanticAST
@ -54,6 +55,7 @@ data Format = Show
data Input data Input
= FileInput FilePath = FileInput FilePath
| StdInput | StdInput
deriving (Read)
input :: Parser Input input :: Parser Input
input = fileInput <|> stdInput input = fileInput <|> stdInput