more RawFilePath conversion

at 377/645

This commit was sponsored by Svenne Krap on Patreon.

Database/Export.hs

@@ -96,7 +96,7 @@ ExportTreeCurrent
  -}
 openDb :: UUID -> Annex ExportHandle
 openDb u = do
-	dbdir <- fromRepo (gitAnnexExportDbDir u)
+	dbdir <- fromRawFilePath <$> fromRepo (gitAnnexExportDbDir u)
 	let db = dbdir </> "db"
 	unlessM (liftIO $ doesFileExist db) $ do
 		initDb db $ void $