From 2fa1631041ca0a7456518aa6a2dd81c34a9195e7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 11 Feb 2025 14:03:20 -0400
Subject: [PATCH] more OsPath conversion

this avoids 1 copy
---
 Database/Init.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Database/Init.hs b/Database/Init.hs
index 7a07beabde..eab3a6f32d 100644
--- a/Database/Init.hs
+++ b/Database/Init.hs
@@ -37,9 +37,9 @@ initDb db migration = do
 	let tmpdb' = fromOsPath tmpdb
 	createAnnexDirectory tmpdbdir
 #if MIN_VERSION_persistent_sqlite(2,13,3)
-	liftIO $ runSqliteInfo' tmpdb' (enableWAL tmpdb') migration
+	liftIO $ runSqliteInfo' tmpdb' (enableWAL tmpdb) migration
 #else
-	liftIO $ runSqliteInfo (enableWAL tmpdb') migration
+	liftIO $ runSqliteInfo (enableWAL tmpdb) migration
 #endif
 	setAnnexDirPerm tmpdbdir
 	-- Work around sqlite bug that prevents it from honoring
@@ -58,6 +58,6 @@ initDb db migration = do
  -
  - Note that once WAL mode is enabled, it will persist whenever the
  - database is opened. -}
-enableWAL :: RawFilePath -> SqliteConnectionInfo
+enableWAL :: OsPath -> SqliteConnectionInfo
 enableWAL db = over walEnabled (const True) $ 
-	mkSqliteConnectionInfo (T.pack (fromRawFilePath db))
+	mkSqliteConnectionInfo (T.pack (fromOsPath db))