Fixed match warnings (fable-compiler#2890)

Author: ncave

src/Fable.Transforms/Rust/AST/Rust.AST.Impl.fs

@@ -356,6 +356,7 @@ type Expr with
             | ExprKind.Try(_) -> ExprPrecedence.Try
             | ExprKind.Yield(_) -> ExprPrecedence.Yield
             | ExprKind.Err -> ExprPrecedence.Err
+            | ExprKind.EmitExpression(_) -> ExprPrecedence.Err
 
 type MacCall with
     member self.span(): Span =

src/Fable.Transforms/Rust/Replacements.fs

@@ -615,9 +615,9 @@ let rec getZero (com: ICompiler) (ctx: Context) (t: Type) =
 let getOne (com: ICompiler) (ctx: Context) (t: Type) =
     match t with
     | Boolean -> makeBoolConst true
-    | Number (kind, uom) -> NumberConstant (getBoxedOne kind, kind, uom) |> makeValue None
     | Number (BigInt,_) -> Helper.LibCall(com, "BigInt", "fromInt32", t, [makeIntConst 1])
     | Number (Decimal,_) -> makeIntConst 1 |> makeDecimalFromExpr com None t
+    | Number (kind, uom) -> NumberConstant (getBoxedOne kind, kind, uom) |> makeValue None
     | ListSingleton(CustomOp com ctx None t "get_One" [] e) -> e
     | _ -> makeIntConst 1