[WIP] Fable support update

Author: ncave

src/fsharp/Fable.FCS/app.fs

@@ -9,8 +9,7 @@ let main argv =
     printfn "Parsing begins..."
 
     let source = """
-type BB() = member x.MMM() = 2 * 3
-printfn "answer: %A" (42 * BB().MMM())
+printfn "answer: %A" 42
 """
 
     let metadataPath = "/temp/metadata/"

src/fsharp/Fable.FCS/package.json

@@ -1,7 +1,7 @@
 {
   "private": true,
   "engines": {
-    "fable": "^0.7.31"
+    "fable": "^0.7.32"
   },
   "dependencies": {
     "fable-core": "^0.7.23"

src/fsharp/NicePrint.fs

@@ -103,7 +103,7 @@ module internal PrintUtilities =
         let tcref = attrib.TyconRef
         squareAngleL (layoutTyconRefImpl true denv tcref)
 
-module private PrintIL = 
+module PrintIL = 
 
     open Microsoft.FSharp.Compiler.AbstractIL.IL
 
@@ -542,7 +542,7 @@ module private PrintIL =
             (pre ^^ wordL "=") @@-- body
 
 
-module private PrintTypes = 
+module PrintTypes = 
     // Note: We need nice printing of constants in order to print literals and attributes 
     let layoutConst g ty c =
         let str = 
@@ -1102,7 +1102,7 @@ module private PrintTypes =
         layoutTypeWithInfoAndPrec denv SimplifyTypes.typeSimplificationInfo0 5 typ  
 
 /// Printing TAST objects
-module private PrintTastMemberOrVals = 
+module PrintTastMemberOrVals = 
     open PrintTypes
     let private layoutMember denv (v:Val) = 
         let v = mkLocalValRef v
@@ -1356,7 +1356,7 @@ module InfoMemberPrinting =
 //-------------------------------------------------------------------------
 
 /// Printing TAST objects
-module private TastDefinitionPrinting = 
+module TastDefinitionPrinting = 
     open PrintTypes
 
     let layoutExtensionMember denv (v:Val) =
@@ -1764,7 +1764,7 @@ module private TastDefinitionPrinting =
 
 //--------------------------------------------------------------------------
 
-module private InferredSigPrinting = 
+module InferredSigPrinting = 
     open PrintTypes
 
     /// Layout the inferred signature of a compilation unit
@@ -1843,7 +1843,7 @@ module private InferredSigPrinting =
 
 //--------------------------------------------------------------------------
 
-module private PrintData = 
+module PrintData = 
     open PrintTypes
 
     /// Nice printing of a subset of expressions, e.g. for refutations in pattern matching

src/fsharp/vs/SimpleServices.fs

@@ -17,7 +17,7 @@ namespace Microsoft.FSharp.Compiler.SimpleSourceCodeServices
     open Microsoft.FSharp.Compiler.AbstractIL.IL
 
     [<AutoOpen>]
-    module private Utils =
+    module Utils =
 
         let buildFormatComment (xmlCommentRetriever: string * string -> string) cmt (sb: StringBuilder) =
             match cmt with

src/fsharp/vs/Symbols.fs

@@ -572,6 +572,10 @@ and FSharpUnionCase(cenv, v: UnionCaseRef) =
         if v.TryUnionCase.IsNone then 
             invalidOp (sprintf "The union case '%s' could not be found in the target type" v.CaseName)
 
+#if FABLE_COMPILER
+    new (cenv, v, _) = FSharpUnionCase(cenv, v)
+#endif
+
     member __.IsUnresolved = 
         isUnresolved()