diff --git a/ihp-hsx/IHP/HSX/Parser.hs b/ihp-hsx/IHP/HSX/Parser.hs index e78fc12bf..ee0a704fa 100644 --- a/ihp-hsx/IHP/HSX/Parser.hs +++ b/ihp-hsx/IHP/HSX/Parser.hs @@ -64,7 +64,7 @@ data Node = Node !Text ![Attribute] ![Node] !Bool -- > let position = Megaparsec.SourcePos filePath (Megaparsec.mkPos line) (Megaparsec.mkPos col) -- > let hsxText = "Hello" -- > --- > let (Right node) = parseHsx True position [] hsxText +-- > let (Right node) = parseHsx settings position extensions hsxText parseHsx :: HsxSettings -> SourcePos -> [TH.Extension] -> Text -> Either (ParseErrorBundle Text Void) Node parseHsx settings position extensions code = let