module BrownPLT.JavaScript.HtmlEmbedding
  ( JsHtml
  , ParsedJavaScript
  , ParsedJsHtml
  , ParsedStatement
  ) where

import BrownPLT.Html.Syntax
import BrownPLT.JavaScript.Parser (parseScript)
import BrownPLT.JavaScript.Syntax (JavaScript, Statement)
import BrownPLT.JavaScript.PrettyPrint (javaScript)
import Text.ParserCombinators.Parsec (SourcePos)

type JsHtml a = Html SourcePos (JavaScript a)

type ParsedJavaScript = JavaScript SourcePos

type ParsedJsHtml = JsHtml SourcePos

type ParsedStatement = Statement SourcePos

instance Script ParsedJavaScript where
  prettyPrintScript s = javaScript s
  parseScriptBlock attrs = parseScript
  parseInlineScript = Nothing
  parseAttributeScript = Nothing