Merge pull request #4 from haskell-works/newhoggy/bugfix

Use filepath that is passed into migrateUp and migrateDown.
haskell-works · Sep 2, 2024 · 109d2f0 · 109d2f0
2 parents 94be0f9 + df6bb59
commit 109d2f0
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/polysemy/Data/RdsData/Polysemy/Migration.hs b/polysemy/Data/RdsData/Polysemy/Migration.hs
@@ -37,8 +37,8 @@ migrateDown :: ()
   => Member Resource r
   => FilePath
   -> Sem r ()
-migrateDown _migrationFp = do
-  value :: Migration <- readYamlFile "db/migration.yaml"
+migrateDown migrationFp = do
+  value :: Migration <- readYamlFile migrationFp
 
   let statements = value ^.. the @"plan" . to reverse . each . the @"down" . each
 
@@ -62,8 +62,8 @@ migrateUp :: ()
   => Member Resource r
   => FilePath
   -> Sem r ()
-migrateUp _migrationFp = do
-  value :: Migration <- readYamlFile "db/migration.yaml"
+migrateUp migrationFp = do
+  value :: Migration <- readYamlFile migrationFp
 
   let statements = value ^.. the @"plan" . each . the @"up" . each