freckle-app 1.10.8.0 → 1.11.0.0

raw patch · 5 files changed

+14/−8 lines, 5 files

Files

• CHANGELOG.md +6/−1
• freckle-app.cabal +1/−1
• library/Freckle/App/Database.hs +5/−4
• library/Freckle/App/Test/Yesod.hs +1/−1
• package.yaml +1/−1

@@ -1,4 +1,9 @@-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.10.8.0...main)+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.11.0.0...main)++## [v1.11.0.0](https://github.com/freckle/freckle-app/compare/v1.10.8.0...v1.11.0.0)++- Add `MonadUnliftIO` superclass to `MonadSqlBackend`+- Use `checkpointCallStack` in `liftSql` to help grab more stack frames  ## [v1.10.8.0](https://github.com/freckle/freckle-app/compare/v1.10.7.0...v1.10.8.0) 

@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               freckle-app-version:            1.10.8.0+version:            1.11.0.0 license:            MIT license-file:       LICENSE maintainer:         Freckle Education

@@ -65,6 +65,7 @@ import Database.PostgreSQL.Simple.SqlQQ (sql) import Freckle.App.Env (Timeout (..)) import qualified Freckle.App.Env as Env+import Freckle.App.Exception.MonadUnliftIO import Freckle.App.OpenTelemetry import Freckle.App.Stats (HasStatsClient) import qualified Freckle.App.Stats as Stats@@ -76,15 +77,15 @@  -- | A monadic context in which a SQL backend is available --   for running database queries-class MonadIO m => MonadSqlBackend m where+class MonadUnliftIO m => MonadSqlBackend m where   getSqlBackendM :: m SqlBackend -instance (HasSqlBackend r, MonadIO m) => MonadSqlBackend (ReaderT r m) where+instance (HasSqlBackend r, MonadUnliftIO m) => MonadSqlBackend (ReaderT r m) where   getSqlBackendM = asks getSqlBackend  -- | Generalize from 'SqlPersistT' to 'MonadSqlBackend'-liftSql :: MonadSqlBackend m => ReaderT SqlBackend m a -> m a-liftSql (ReaderT f) = getSqlBackendM >>= f+liftSql :: (MonadSqlBackend m, HasCallStack) => ReaderT SqlBackend m a -> m a+liftSql (ReaderT f) = checkpointCallStack $ getSqlBackendM >>= f  -- | The constraint @'MonadSqlTx' db m@ indicates that @m@ is a monadic --   context that can run @db@ actions, usually as a SQL transaction.

@@ -147,7 +147,7 @@  -- | Clears the current cookies testClearCookies :: forall m site. MonadYesodExample site m => m ()-testClearCookies = liftYesodExample $ Yesod.Test.testClearCookies+testClearCookies = liftYesodExample Yesod.Test.testClearCookies  -- | Deletes the cookie of the given name testDeleteCookie

@@ -1,5 +1,5 @@ name: freckle-app-version: 1.10.8.0+version: 1.11.0.0 maintainer: Freckle Education category: Utils github: freckle/freckle-app