Fix curator compilation

commercialhaskell · Aug 22, 2018 · 3f4c212 · 3f4c212
1 parent 4f74f94
commit 3f4c212
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/subs/curator/app/Main.hs b/subs/curator/app/Main.hs
@@ -78,7 +78,7 @@ build = do
 loadPantrySnapshotFile :: FilePath -> RIO PantryApp Curator.Snapshot
 loadPantrySnapshotFile fp = do
   abs' <- resolveFile' fp
-  eres <- loadPantrySnapshot $ SLFilePath (ResolvedPath (RelFilePath (fromString fp)) abs')
+  eres <- loadSnapshot $ SLFilePath (ResolvedPath (RelFilePath (fromString fp)) abs')
   case eres of
     Left x -> error $ "should not happen: " ++ show (fp, x)
     Right (x, _) -> pure x