add `$fileName` to values

1 files changed, 3 insertions, 3 deletions

diff --git a/backend/app/Main.hs b/backend/app/Main.hs
index 8bd02b2..df5dee8 100644
--- a/backend/app/Main.hs
+++ b/backend/app/Main.hs
@@ -127,10 +127,10 @@ initRepo root ref = do
             let cls =
                   M.toList . M.unionsWith (++) $
                     map (\f -> M.singleton (takeDirectory f) [f]) fs
-            colls <- forM cls $ \(path, (file : files)) -> do
+            colls <- forM cls $ \(path, files) -> do
               (value : values) <- do
-                liftIO $ Q.withStore root ref do
-                  mapM (Q.withCommit cid . Q.readFile) (file : files)
+                liftIO . Q.withStore root ref . Q.withCommit cid $ do
+                  Q.query (fromString ("SELECT " <> path <> " FROM " <> path))
               let schema = U.autoTypes' value values
               pure $ Collection path files schema
             let schemaVersion =