Update seed script with a check if exists

svsticky · Jan 10, 2022 · 081d6c7 · 081d6c7
1 parent b17fb43
commit 081d6c7
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/Application/Script/SeedDatabase.hs b/Application/Script/SeedDatabase.hs
@@ -2,10 +2,16 @@
 module Application.Script.SeedDatabase where
 
 import Application.Script.Prelude
+import Control.Monad (void)
 
 run :: Script
 run = do
-    let route :: Route = newRecord { path = "panda", url = "https://www.youtube.com/watch?v=o-YBDTqX_ZU"}
-    route <- createRecord route
-    pure ()
+    route <- query @Route |> filterWhere (#path, "panda") |> fetchOneOrNothing
+
+    case route of
+        Just _ -> putStrLn "A recycled panda was already in place, disregard"
+        Nothing -> do
+            let route :: Route = newRecord { path = "panda", url = "https://www.youtube.com/watch?v=o-YBDTqX_ZU"}
+            void $ createRecord route
+