Use source-map-sharp

fable-compiler · Dec 29, 2020 · 145f656 · 145f656
1 parent 8441abe
commit 145f656
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/src/Fable.Cli/Fable.Cli.fsproj b/src/Fable.Cli/Fable.Cli.fsproj
@@ -30,6 +30,7 @@
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="..\Fable.Transforms\Fable.Transforms.fsproj" />
+    <ProjectReference Include="..\..\..\source-map-sharp\source-map-sharp.fsproj" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="../../lib/fcs/FSharp.Core.dll" />

diff --git a/src/Fable.Cli/Main.fs b/src/Fable.Cli/Main.fs
@@ -160,10 +160,15 @@ module private Util =
                 |> FableTransforms.transformFile com
                 |> Fable2Babel.Compiler.transformFile com
 
-            // TODO: Dummy interface until we have a dotnet port of SourceMapGenerator
-            // https://github.com/mozilla/source-map#with-sourcemapgenerator-low-level-api
+            let mapGenerator = SourceMapSharp.SourceMapGenerator(None, None, None)
             let map = { new BabelPrinter.SourceMapGenerator with
-                            member _.AddMapping(_,_,_,_,_) = () }
+                            member _.AddMapping(orLine, orCol, genLine, genCol, name) =
+                                let generated: SourceMapSharp.Util.MappingIndex =
+                                    {line = genLine; column = genCol}
+                                let original: SourceMapSharp.Util.MappingIndex =
+                                    {line = orLine; column = orCol}
+
+                                mapGenerator.AddMapping(generated, Some original, Some com.CurrentFile, name) }
 
             let outPath = getOutJsPath cliArgs dedupTargetDir com.CurrentFile
 
@@ -176,6 +181,7 @@ module private Util =
             do! BabelPrinter.run writer map babel
 
             Log.always("Compiled " + File.getRelativePathFromCwd com.CurrentFile)
+            printfn "%s" (mapGenerator.toString())
 
             return Ok {| File = com.CurrentFile
                          Logs = com.Logs