mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

avoid build warnings

Browse source
This commit is contained in:
Joey Hess 2023-12-26 19:39:01 -04:00
parent 8a3beabf35
commit 325b3d5c9c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Database/RawFilePath.hs
View file

@ -35,6 +35,7 @@
module Database.RawFilePath where module Database.RawFilePath where
#if MIN_VERSION_persistent_sqlite(2,13,3)
import Database.Persist.Sqlite import Database.Persist.Sqlite
import qualified Database.Sqlite as Sqlite import qualified Database.Sqlite as Sqlite
import qualified System.FilePath.ByteString as P import qualified System.FilePath.ByteString as P
@ -45,11 +46,6 @@ import Control.Monad.Logger (NoLoggingT, runNoLoggingT)
import Control.Monad.Trans.Reader (ReaderT) import Control.Monad.Trans.Reader (ReaderT)
import UnliftIO.Resource (ResourceT, runResourceT) import UnliftIO.Resource (ResourceT, runResourceT)
{- The functions below are copied from persistent-sqlite, but modified to
- take a RawFilePath and ignore the sqlConnectionStr from the
- SqliteConnectionInfo. This avoids encoding problems using Text
- in some situations. -}
#if MIN_VERSION_persistent_sqlite(2,13,3)
openWith' openWith'
:: P.RawFilePath :: P.RawFilePath
-> (SqlBackend -> Sqlite.Connection -> r) -> (SqlBackend -> Sqlite.Connection -> r)