avoid build warnings

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

View file

@ -35,6 +35,7 @@
module Database.RawFilePath where
#if MIN_VERSION_persistent_sqlite(2,13,3)
import Database.Persist.Sqlite
import qualified Database.Sqlite as Sqlite
import qualified System.FilePath.ByteString as P
@ -45,11 +46,6 @@ import Control.Monad.Logger (NoLoggingT, runNoLoggingT)
import Control.Monad.Trans.Reader (ReaderT)
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'
:: P.RawFilePath
-> (SqlBackend -> Sqlite.Connection -> r)