Initial commit

Database.module.fs

@@ -0,0 +1,35 @@
+module db
+
+open Dapper.FSharp.MySQL
+open MySql.Data.MySqlClient
+open DredgeFramework
+
+let connString = "server=localhost;uid=root;pwd=;database=dredgepos;table cache = false"
+let connection = new MySqlConnection(connString)
+
+let Select<'a> asyncQuery =
+    asyncQuery
+        |> connection.SelectAsync<'a>
+        |> RunSynchronously
+        |> EnumerableToArray
+
+let SelectJoin<'a, 'b> asyncQuery =
+    asyncQuery
+        |> connection.SelectAsync<'a, 'b>
+        |> RunSynchronously
+        |> EnumerableToArray
+
+let Insert<'a> asyncQuery =
+    asyncQuery
+        |> connection.InsertAsync<'a>
+        |> RunSynchronously
+
+let Update<'a> asyncQuery =
+    asyncQuery
+        |> connection.UpdateAsync<'a>
+        |> RunSynchronously
+
+let Delete<'a> asyncQuery =
+    asyncQuery
+        |> connection.DeleteAsync
+        |> RunSynchronously