haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix test suite compilation on GHC 8.6.3 commercialhaskell/stackage#4319

Browse Source
This commit is contained in:
Michael Snoyman 2019-01-22 18:40:15 +02:00
parent 9ff1f18a4a
commit c7e4dd0a1c
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/ChangeLog.md
View File

@ -1,5 +1,9 @@
# ChangeLog for yesod-core
## 1.6.10.1
* Fix test suite compilation for [commercialhaskell/stackage#4319](https://github.com/commercialhaskell/stackage/issues/4319)
## 1.6.10
* Adds functions to get and set values in the per-request caches. [#1573](https://github.com/yesodweb/yesod/pull/1573)

10
yesod-core/test/YesodCoreTest/Cache.hs
View File

@ -47,7 +47,10 @@ getRootR = do
V2 v2b <- cached $ atomicModifyIORef ref $ \i -> (i + 1, V2 $ i + 1)
cacheBySet "3" (V2 3)
Just (V2 v3a) <- cacheByGet "3"
V2 v3a <- cacheByGet "3" >>= \x ->
case x of
Just y -> return y
Nothing -> error "must be Just"
V2 v3b <- cachedBy "3" $ (pure $ V2 4)
return $ RepPlain $ toContent $ show [v1a, v1b, v2a, v2b, v3a, v3b]
@ -66,7 +69,10 @@ getKeyR = do
cacheBySet "4" (V2 4)
Just (V2 v4a) <- cacheByGet "4"
V2 v4a <- cacheByGet "4" >>= \x ->
case x of
Just y -> return y
Nothing -> error "must be Just"
V2 v4b <- cachedBy "4" $ (pure $ V2 5)
return $ RepPlain $ toContent $ show [v1a, v1b, v2a, v2b, v3a, v3b, v4a, v4b]

2
yesod-core/yesod-core.cabal
View File

@ -1,5 +1,5 @@
name: yesod-core
version: 1.6.10
version: 1.6.10.1
license: MIT
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>