Merge pull request #65 from baronfel/patch-1

Don't print unknown AST fragments
MoiraeSoftware · Aug 4, 2020 · 689464f · 689464f
2 parents 9b1d50c + ef0c773
commit 689464f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Myriad.Core/Ast.fs b/src/Myriad.Core/Ast.fs
@@ -53,7 +53,7 @@ module Ast =
                     | SynModuleDecl.NestedModule(ComponentInfo(attribs, typeParams, constraints, longId, xmlDoc, preferPostfix, accessibility, range), isRec, decls, _, _range) ->
                         let combined = longId |> List.append ns
                         yield! (extractTypes decls combined)
-                    | other -> printfn "other: %A" other
+                    | other -> ()
             ]
 
         [   match ast with
@@ -101,4 +101,4 @@ module Ast =
     let getAttribute<'a>  (TypeDefn(ComponentInfo(attributes, _typeParams, _constraints, _recordIdent, _doc, _preferPostfix, _access, _), _typeDefRepr, _memberDefs, _))  =
         attributes
         |> List.collect (fun n -> n.Attributes)
-        |> List.tryFind (typeNameMatches typeof<'a>)
+        |> List.tryFind (typeNameMatches typeof<'a>)