Add support for bare import declarations

Author: jeapostrophe

src/Language/JavaScript/Parser/AST.hs

@@ -73,7 +73,7 @@ data JSModuleItem
 
 data JSImportDeclaration
     = JSImportDeclaration !JSImportClause !JSFromClause !JSSemi -- ^imports, module, semi
-    -- | JSImportDeclarationBare -- ^ module, semi
+    | JSImportDeclarationBare !JSAnnot !String !JSSemi -- ^module, module, semi
     deriving (Data, Eq, Show, Typeable)
 
 data JSImportClause
@@ -425,6 +425,7 @@ instance ShowStripped JSModuleItem where
 
 instance ShowStripped JSImportDeclaration where
     ss (JSImportDeclaration imp from _) = "JSImportDeclaration (" ++ ss imp ++ "," ++ ss from ++ ")"
+    ss (JSImportDeclarationBare _ m _) = "JSImportDeclarationBare (" ++ singleQuote m ++ ")"
 
 instance ShowStripped JSImportClause where
     ss (JSImportClauseDefault x) = "JSImportClauseDefault (" ++ ss x ++ ")"

src/Language/JavaScript/Parser/Grammar7.y

@@ -1251,6 +1251,8 @@ ModuleItem : Import ImportDeclaration
 ImportDeclaration :: { AST.JSImportDeclaration }
 ImportDeclaration : ImportClause FromClause AutoSemi
                           { AST.JSImportDeclaration $1 $2 $3 }
+                  | 'string' AutoSemi
+                          { AST.JSImportDeclarationBare (mkJSAnnot $1) (tokenLiteral $1) $2 }
 
 ImportClause :: { AST.JSImportClause }
 ImportClause : IdentifierName

src/Language/JavaScript/Pretty/Printer.hs

@@ -291,6 +291,7 @@ instance RenderJS [JSArrayElement] where
 
 instance RenderJS JSImportDeclaration where
     (|>) pacc (JSImportDeclaration imp from annot) = pacc |> imp |> from |> annot
+    (|>) pacc (JSImportDeclarationBare annot m s) = pacc |> annot |> m |> s
 
 instance RenderJS JSImportClause where
     (|>) pacc (JSImportClauseDefault x) = pacc |> x

src/Language/JavaScript/Process/Minify.hs

@@ -293,6 +293,7 @@ instance MinifyJS JSImportDeclaration where
                     JSImportClauseNamed {} -> emptyAnnot
                     JSImportClauseDefaultNameSpace {} -> spaceAnnot
                     JSImportClauseDefaultNamed {} -> emptyAnnot
+    fix a (JSImportDeclarationBare _ m _) = JSImportDeclarationBare a m noSemi
 
 instance MinifyJS JSImportClause where
     fix _ (JSImportClauseDefault n) = JSImportClauseDefault (fixSpace n)

test/Test/Language/Javascript/Minify.hs

@@ -277,6 +277,7 @@ testMinifyModule = describe "Minify modules:" $ do
         minifyModule "import  def, * as foo  from   \"mod\"  ; " `shouldBe` "import def,* as foo from\"mod\""
         minifyModule "import  { baz,  bar as   foo }  from   \"mod\"  ; " `shouldBe` "import{baz,bar as foo}from\"mod\""
         minifyModule "import  def, { baz,  bar as   foo }  from   \"mod\"  ; " `shouldBe` "import def,{baz,bar as foo}from\"mod\""
+        minifyModule "import     \"mod\"  ; " `shouldBe` "import\"mod\""
 
     it "export" $ do
         minifyModule " export { } ; " `shouldBe` "export{}"