Fix infinite recursion in ...Test.Yesod.getResponse (#119)

* Fix infinite recursion in ...Test.Yesod.getResponse * bump version
freckle · Sep 20, 2023 · 5cd9d96 · 5cd9d96
1 parent 6decab1
commit 5cd9d96
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,4 +1,8 @@
-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.9.5.0...main)
+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/v1.9.5.1...main)
+
+## [v1.9.5.1](https://github.com/freckle/freckle-app/compare/v1.9.5.0...v1.9.5.1)
+
+- Fixed mistake in `Freckle.App.Test.Yesod.getResponse` producing nontermination
 
 ## [v1.9.5.0](https://github.com/freckle/freckle-app/compare/v1.9.4.0...v1.9.5.0)
 

diff --git a/freckle-app.cabal b/freckle-app.cabal
@@ -5,7 +5,7 @@ cabal-version: 1.18
 -- see: https://github.com/sol/hpack
 
 name:           freckle-app
-version:        1.9.5.0
+version:        1.9.5.1
 synopsis:       Haskell application toolkit used at Freckle
 description:    Please see README.md
 category:       Utils

diff --git a/library/Freckle/App/Test/Yesod.hs b/library/Freckle/App/Test/Yesod.hs
@@ -180,7 +180,7 @@ getRawBody =
 
 -- | Get the most recently provided response value, if available
 getResponse :: forall m site. MonadYesodExample site m => m (Maybe SResponse)
-getResponse = liftYesodExample getResponse
+getResponse = liftYesodExample Yesod.Test.getResponse
 
 -- | The general interface for performing requests
 --

diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name: freckle-app
-version: 1.9.5.0
+version: 1.9.5.1
 maintainer: Freckle Education
 category: Utils
 github: freckle/freckle-app