From fe468f2cdaeb3391bc31e030a3fa727a3a695758 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Fri, 25 Oct 2019 10:54:35 -0400 Subject: [PATCH] Go with // for comments. --- semantic-core/src/Core/Parser.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/semantic-core/src/Core/Parser.hs b/semantic-core/src/Core/Parser.hs index 1cab4adaa..93da620f5 100644 --- a/semantic-core/src/Core/Parser.hs +++ b/semantic-core/src/Core/Parser.hs @@ -30,7 +30,8 @@ newtype CoreParser m a = CoreParser { runCoreParser :: m a } deriving (Alternative, Applicative, CharParsing, DeltaParsing, Errable, Functor, LookAheadParsing, Monad, MonadPlus, Parsing) 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 c = not (Char.isDigit c) && isSimpleCharacter c