Add regressoin test for #914

tests/WebSharper.Tests/Regression.fs

@@ -365,9 +365,21 @@ module TupledArgOpt =
 
 [<JavaScript>]
 module Bug906 =
+    // bug #906, this was throwing a compile-time error 'not a named type'
     type Alias<'T> = 'T
     type Record<'T> = { x : Alias<'T> }
 
+[<Struct>]
+type Normal<'T, 'U> = Ok of 'T | Error
+
+[<JavaScript>]
+module Bug914 =
+    type Alias<'T> = Normal<'T, string>
+    let f i =
+        match Ok i : Alias<int> with
+        | Ok x -> string x
+        | Error -> "error"
+
 [<JavaScript>]
 let Tests =
     TestCategory "Regression" {
@@ -841,6 +853,10 @@ let Tests =
             equal r2 "13"
         }
 
+        Test "#914 generic struct type alias" {
+            equal (Bug914.f 42) "42"
+        }
+
         //Test "Recursive module value" {
         //    equal (moduleFuncValue 0) 5
         //}