support for full text catalogs

Author: fffej

src/Database/SqlServer/Types/Database.hs

@@ -10,6 +10,7 @@ import Database.SqlServer.Types.Queue (QueueDefinition)
 import Database.SqlServer.Types.Certificate (CertificateDefinition)
 import Database.SqlServer.Types.Login (LoginDefinition)
 import Database.SqlServer.Types.User (UserDefinition)
+import Database.SqlServer.Types.FullTextCatalog (FullTextCatalogDefinition)
 import Database.SqlServer.Types.Entity
 
 import Test.QuickCheck
@@ -24,7 +25,7 @@ data MasterKey = MasterKey
 derive makeArbitrary ''MasterKey
 
 instance Entity MasterKey where
-  toDoc MasterKey = text "CREATE MASTER KEY ENCRYPTION BY PASSWORD = 'arbitrary_password'" $+$
+  toDoc MasterKey = text "CREATE MASTER KEY ENCRYPTION BY PASSWORD = 'weKKjwehg252t!!'" $+$
                     text "GO"
 
 data DatabaseDefinition = DatabaseDefinition
@@ -37,6 +38,7 @@ data DatabaseDefinition = DatabaseDefinition
                           , certificateDefinitions :: [CertificateDefinition]
                           , userDefinitions :: [UserDefinition]
                           , loginDefinitions :: [LoginDefinition]
+                          , fullTextCatalogDefinitions :: [FullTextCatalogDefinition]
                           , masterKey :: MasterKey
                           }
 
@@ -57,6 +59,7 @@ renderDatabaseDefinition  dd = text "USE master" $+$
                                renderNamedEntities (certificateDefinitions dd) $+$
                                renderNamedEntities (userDefinitions dd) $+$
                                renderNamedEntities (loginDefinitions dd) $+$
+                               renderNamedEntities (fullTextCatalogDefinitions dd) $+$
                                text "GO"
   where
     dbName = renderRegularIdentifier (databaseName dd)

src/Database/SqlServer/Types/FullTextCatalog.hs

@@ -0,0 +1,37 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Database.SqlServer.Types.FullTextCatalog where
+
+import Database.SqlServer.Types.Identifiers
+import Database.SqlServer.Types.Entity
+
+import Test.QuickCheck
+import Text.PrettyPrint
+import Data.DeriveTH
+
+data FullTextCatalogDefinition = FullTextCatalogDefinition
+  {
+    catalogName :: RegularIdentifier
+  , filegroup :: Maybe RegularIdentifier
+  , accentSensitive :: Maybe Bool
+  , asDefault :: Bool
+  -- TODO ignore users
+  }
+
+derive makeArbitrary ''FullTextCatalogDefinition
+
+renderFileGroup :: RegularIdentifier -> Doc
+renderFileGroup n = text "ON FILEGROUP" <+> (renderRegularIdentifier n)
+
+renderOptions :: Bool -> Doc
+renderOptions True  = text "WITH ACCENT_SENSITIVITY = ON"
+renderOptions False = text "WITH ACCENT_SENSITIVITY = OFF"
+
+instance Entity FullTextCatalogDefinition where
+  toDoc ftc = text "CREATE FULLTEXT CATALOG" <+>
+              renderRegularIdentifier (catalogName ftc) $+$
+              maybe empty renderFileGroup (filegroup ftc) $+$
+              maybe empty renderOptions (accentSensitive ftc) $+$
+              if (asDefault ftc) then text "AS DEFAULT" else empty $+$
+              text "GO\n"