categories refactor

src/Model.hs

@@ -13,9 +13,9 @@ module Model where
 import           Startlude
 import           Database.Persist.TH
 import           Lib.Types.Emver
+import           Lib.Types.Category
 import           Orphans.Emver                  ( )
 
-
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 SApp
     createdAt UTCTime
@@ -41,6 +41,14 @@ SVersion sql=version
     deriving Eq
     deriving Show
 
+OsVersion 
+    createdAt UTCTime
+    updatedAt UTCTime
+    number Version
+    headline Text
+    releaseNotes Text 
+    deriving Eq
+    deriving Show
 
 Metric
     createdAt UTCTime
@@ -48,4 +56,22 @@ Metric
     version SVersionId
     deriving Eq
     deriving Show
+
+Category
+    createdAt UTCTime
+    name CategoryTitle
+    parent CategoryId Maybe
+    description Text
+    deriving Eq
+    deriving Show
+
+ServiceCategory
+    createdAt UTCTime
+    serviceId SAppId
+    categoryId CategoryId
+    serviceName Text -- SAppAppId
+    categoryName CategoryTitle -- CategoryTitle
+    priority Int Maybe
+    deriving Eq
+    deriving Show
 |]