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

Go with // for comments.

Browse Source
This commit is contained in:
Patrick Thomson 2019-10-25 10:54:35 -04:00
parent 2d8819933a
commit fe468f2cda
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-core/src/Core/Parser.hs
View File

@ -30,7 +30,8 @@ newtype CoreParser m a = CoreParser { runCoreParser :: m a }
deriving (Alternative, Applicative, CharParsing, DeltaParsing, Errable, Functor, LookAheadParsing, Monad, MonadPlus, Parsing) deriving (Alternative, Applicative, CharParsing, DeltaParsing, Errable, Functor, LookAheadParsing, Monad, MonadPlus, Parsing)
instance TokenParsing m => TokenParsing (CoreParser m) where instance TokenParsing m => TokenParsing (CoreParser m) where
someSpace = Style.buildSomeSpaceParser (void (satisfy Char.isSpace)) Style.haskellCommentStyle someSpace = Style.buildSomeSpaceParser (void (satisfy Char.isSpace)) comments
where comments = Style.CommentStyle "" "" "//" False
validIdentifierStart :: Char -> Bool validIdentifierStart :: Char -> Bool
validIdentifierStart c = not (Char.isDigit c) && isSimpleCharacter c validIdentifierStart c = not (Char.isDigit c) && isSimpleCharacter c