From 192c7337491fca7092499331efe3f88e8cf682c4 Mon Sep 17 00:00:00 2001
From: Steffen Jost <s.jost@fraport.de>
Date: Mon, 12 Feb 2024 18:30:07 +0100
Subject: [PATCH] chore(health): migration for health defaults

---
 src/Model/Migration/Definitions.hs | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/src/Model/Migration/Definitions.hs b/src/Model/Migration/Definitions.hs
index e7d34e713..ab0147ff4 100644
--- a/src/Model/Migration/Definitions.hs
+++ b/src/Model/Migration/Definitions.hs
@@ -49,6 +49,7 @@ import qualified Data.Time.Zones as TZ
 data ManualMigration
   = Migration20230524QualificationUserBlock
   | Migration20230703LmsUserStatus
+  | Migration20240212InitInterfaceHealth        -- create table interface_health and fill with default values
   deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic)
   deriving anyclass (Universe, Finite)
 
@@ -123,14 +124,6 @@ migrateAlwaysSafe = do
             let itemDay = Map.findWithDefault today item changelogItemDays
             return [st|('#{toPathPiece item}', '#{iso8601Show itemDay}')|]
        in sql
-  -- unless (tableExists "interface_health") $ do
-  --   [executeQQ|
-  --     INSERT INTO "interface_health" ("interface", "subtype", "write", "hours")
-  --     VALUES
-  --         ('Printer', 'Acknowledge', True, 168)
-  --       , ('AVS'    , 'Synch'      , True , 96)
-  --     ON CONFLICT DO NOTHING;
-  --   |]
 
 {-
   Confusion about quotes, from the PostgreSQL Manual:
@@ -185,6 +178,25 @@ customMigrations = mapF $ \case
         ;  
       |]
 
+  Migration20240212InitInterfaceHealth ->
+    unlessM (tableExists "interface_health") $ do -- fill health table with some defaults
+      [executeQQ|
+        CREATE TABLE "interface_health"
+          ( id BIGSERIAL NOT NULL 
+          , interface CHARACTER VARYING NOT NULL 
+          , subtype   CHARACTER VARYING 
+          , write     BOOLEAN 
+          , hours     BIGINT NOT NULL 
+          , PRIMARY KEY(id) 
+          , CONSTRAINT unique_interface_health UNIQUE(interface, subtype, write) 
+          ); 
+        INSERT INTO "interface_health" ("interface", "subtype", "write", "hours") 
+        VALUES 
+            ('Printer', 'Acknowledge', True, 168) 
+          , ('AVS'    , 'Synch'      , True , 96) 
+        ON CONFLICT DO NOTHING; 
+      |]    
+
 
 tableExists :: MonadIO m => Text -> ReaderT SqlBackend m Bool
 tableExists table = do