Remove Javascript parser

paf31 · paf31 · commit 20505a810962 · 2014-02-06T14:53:42.000-08:00
diff --git a/purescript.cabal b/purescript.cabal
@@ -49,7 +49,6 @@ library
                      Language.PureScript.Parser.State
                      Language.PureScript.Parser.Types
                      Language.PureScript.Parser.Values
-                     Language.PureScript.Parser.JS
                      Language.PureScript.Pretty
                      Language.PureScript.Pretty.Common
                      Language.PureScript.Pretty.JS
diff --git a/src/Language/PureScript/Parser/Declarations.hs b/src/Language/PureScript/Parser/Declarations.hs
@@ -31,7 +31,6 @@ import Language.PureScript.Declarations
 import Language.PureScript.Parser.Values
 import Language.PureScript.Parser.Types
 import Language.PureScript.Parser.Kinds
-import Language.PureScript.Parser.JS
 import Language.PureScript.CodeGen.JS.AST
 import Language.PureScript.Values
 
@@ -67,11 +66,9 @@ parseExternDeclaration = P.try (reserved "foreign") *> indented *> (reserved "im
    (ExternDataDeclaration <$> (P.try (reserved "data") *> indented *> properName)
                              <*> (lexeme (indented *> P.string "::") *> parseKind)
    <|> do ident <- parseIdent
-          js <- P.optionMaybe (parseJSLiteral <$> stringLiteral)
+          js <- P.optionMaybe (JSRaw <$> stringLiteral)
           ty <- (lexeme (indented *> P.string "::") *> parsePolyType)
           return $ ExternDeclaration (if isJust js then InlineJavascript else ForeignImport) ident js ty)
-parseJSLiteral :: String -> JS
-parseJSLiteral s = either (const $ JSRaw s) id $ P.runParser parseJS () "Javascript" s
 
 parseAssociativity :: P.Parsec String ParseState Associativity
 parseAssociativity =
diff --git a/src/Language/PureScript/Parser/JS.hs b/src/Language/PureScript/Parser/JS.hs
