Merge pull request #9 from fffej/beam-me-up

Beam me up

Author: fffej

sql-server-gen.cabal

@@ -53,7 +53,14 @@ library
   -- Modules exported by the library.
   exposed-modules:     Database.SqlServer.Types.Database,
                        Database.SqlServer.Types.Sequence,
-                       Database.SqlServer.Types.Identifiers           
+                       Database.SqlServer.Types.Identifiers,
+                       Database.SqlServer.Types.Procedure,
+                       Database.SqlServer.Types.Properties,
+                       Database.SqlServer.Types.Queue,
+                       Database.SqlServer.Types.DataTypes,
+                       Database.SqlServer.Types.Reserved,
+                       Database.SqlServer.Types.Table,
+                       Database.SqlServer.Types.Collations
 
   ghc-options:         -Wall
 
@@ -86,4 +93,16 @@ Test-Suite tests
                         sql-server-gen,
                         hspec >= 2.1.7,
                         containers >= 0.5.6.2
-                                    
+                                    
+executable webserver
+  ghc-options:          -Wall
+  main-is:              Main.hs
+  hs-source-dirs:       web
+  default-language:     Haskell2010
+  build-depends:        base >=4.8 && <4.9,
+                        sql-server-gen,
+                        scotty >= 0.10.1,
+                        aeson >= 0.9.0.1,
+                        QuickCheck >= 2.8.1,
+                        pretty >= 1.1.2,
+                        transformers >= 0.4.2.0

web/Main.hs

@@ -0,0 +1,42 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE DeriveGeneric #-}
+
+module Main where
+
+import Web.Scotty
+import Data.Aeson hiding (json)
+import GHC.Generics
+import Test.QuickCheck
+import Test.QuickCheck.Gen
+import Test.QuickCheck.Random
+import Text.PrettyPrint (render)
+
+
+import Database.SqlServer.Types.Database;
+
+data DatabaseAsJson = DatabaseAsJson
+   {
+     seed   :: Int
+   , size   :: Int
+   , createStatement :: String
+   } deriving Generic
+
+instance ToJSON DatabaseAsJson
+
+generateDB :: Int -> Int -> DatabaseAsJson
+generateDB seed' size' = DatabaseAsJson
+    {
+      seed = seed'
+    , size = size'
+    , createStatement = (render . renderDatabaseDefinition) db
+    }
+  where
+    db = unGen (arbitrary :: Gen DatabaseDefinition) (mkQCGen seed') size'
+
+main :: IO ()
+main = scotty 8888 $ do
+  get "/database/:seed" $ do
+    s <- param "seed"
+    z <- param "size" `rescue` (const $ return 101)
+    json (generateDB s z)
+