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

Don’t attempt to parse Haskell sources.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 15:35:57 -05:00
parent db93c7813c
commit 36e7e49f72
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Parser.hs
View File

@ -1,7 +1,6 @@
module Parser where module Parser where
import Diff import Diff
import Haskell
import Range import Range
import Syntax import Syntax
import Term import Term
@ -11,7 +10,6 @@ import Control.Comonad.Cofree
type Parser = String -> IO (Term String Info) type Parser = String -> IO (Term String Info)
parserForType :: String -> Parser parserForType :: String -> Parser
parserForType ".hs" = runHaskellParser
parserForType mediaType = maybe lineByLineParser parseTreeSitterFile $ languageForType mediaType parserForType mediaType = maybe lineByLineParser parseTreeSitterFile $ languageForType mediaType
lineByLineParser :: Parser lineByLineParser :: Parser