github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

add Java data constructor to language type constructor

Browse Source
This commit is contained in:
Ayman Nadeem 2018-03-16 17:00:11 -07:00
parent a0d880f1fa
commit 4280b9a300
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Language.hs
View File

@ -7,6 +7,7 @@ import Data.Aeson
-- | A programming language. -- | A programming language.
data Language data Language
= Go = Go
| Java
| JavaScript | JavaScript
| JSON | JSON
| JSX | JSX
@ -20,6 +21,7 @@ data Language
-- | Returns a Language based on the file extension (including the "."). -- | Returns a Language based on the file extension (including the ".").
languageForType :: String -> Maybe Language languageForType :: String -> Maybe Language
languageForType mediaType = case mediaType of languageForType mediaType = case mediaType of
".java" -> Just Java
".json" -> Just JSON ".json" -> Just JSON
".md" -> Just Markdown ".md" -> Just Markdown
".rb" -> Just Ruby ".rb" -> Just Ruby