1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00

No need to reinvent fmap.

This commit is contained in:
Rob Rix 2015-12-09 10:18:52 -05:00
parent da3634c59a
commit a75c1b0482

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