github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

No need to reinvent fmap.

Browse Source
This commit is contained in:
Rob Rix 2015-12-09 10:18:52 -05:00
parent da3634c59a
commit a75c1b0482
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -55,7 +55,7 @@ main = do
(fullDesc <> progDesc "Diff some things" <> header "semantic-diff - diff semantically")
parserForType :: String -> Maybe P.Parser
parserForType mediaType = maybe Nothing (Just . parseTreeSitterFile) $ case mediaType of
parserForType mediaType = parseTreeSitterFile <$> case mediaType of
".h" -> Just ts_language_c
".c" -> Just ts_language_c
".js" -> Just ts_language_javascript