Add parentheses around SELECT TOP.

Author: rspeele

src/Rezoom.SQL.Compiler/TSQL.Statement.fs

@@ -57,7 +57,9 @@ type private TSQLStatement(indexer : IParameterIndexer) as this =
                 yield ws
                 yield text "TOP"
                 yield ws
+                yield text "("
                 yield! this.FirstClassValue(top)
+                yield text ")"
             yield linebreak
             yield! this.ResultColumns(select.Columns) |> indent
             match select.From with

src/Rezoom.SQL.Test/TestTSQL.fs

@@ -109,7 +109,7 @@ create table XUsers
 let ``select top`` () =
     translate
         "select 1 as x from Users limit 5"
-        "SELECT TOP 5 1 AS [x] FROM [Users];"
+        "SELECT TOP (5) 1 AS [x] FROM [Users];"
 
 [<Test>]
 let ``select offset`` () =