Skip to content

Commit aa2f47a

Browse files
committed
7.9.0 - bumped version due to Cookie type changes. fix test suite build failure.
1 parent 165770b commit aa2f47a

2 files changed

Lines changed: 7 additions & 7 deletions

File tree

happstack-server.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
Name: happstack-server
2-
Version: 7.8.0.2
2+
Version: 7.9.0
33
Synopsis: Web related tools and services.
44
Description: Happstack Server provides an HTTP server and a rich set of functions for routing requests, handling query parameters, generating responses, working with cookies, serving files, and more. For in-depth documentation see the Happstack Crash Course <http://happstack.com/docs/crashcourse/index.html>
55
License: BSD3

tests/Happstack/Server/Tests.hs

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -44,24 +44,24 @@ cookieParserTest =
4444
"cookieParserTest" ~:
4545
[parseCookies "$Version=1;Cookie1=value1;$Path=\"/testpath\";$Domain=example.com;cookie2=value2"
4646
@?= (Right [
47-
Cookie "1" "/testpath" "example.com" "cookie1" "value1" False False SameSiteNoValue
48-
, Cookie "1" "" "" "cookie2" "value2" False False SameSiteNoValue
47+
Cookie "1" "/testpath" "example.com" "cookie1" "value1" False False SameSiteNoValue False
48+
, Cookie "1" "" "" "cookie2" "value2" False False SameSiteNoValue False
4949
])
5050
,parseCookies " \t $Version = \"1\" ; cookie1 = \"randomcrap!@#%^&*()-_+={}[]:;'<>,.?/\\|\" , $Path=/ "
5151
@?= (Right [
52-
Cookie "1" "/" "" "cookie1" "randomcrap!@#%^&*()-_+={}[]:;'<>,.?/|" False False SameSiteNoValue
52+
Cookie "1" "/" "" "cookie1" "randomcrap!@#%^&*()-_+={}[]:;'<>,.?/|" False False SameSiteNoValue False
5353
])
5454
,parseCookies " cookie1 = value1 "
5555
@?= (Right [
56-
Cookie "" "" "" "cookie1" "value1" False False SameSiteNoValue
56+
Cookie "" "" "" "cookie1" "value1" False False SameSiteNoValue False
5757
])
5858
,parseCookies " $Version=\"1\";buggygooglecookie = valuewith=whereitshouldnotbe "
5959
@?= (Right [
60-
Cookie "1" "" "" "buggygooglecookie" "valuewith=whereitshouldnotbe" False False SameSiteNoValue
60+
Cookie "1" "" "" "buggygooglecookie" "valuewith=whereitshouldnotbe" False False SameSiteNoValue False
6161
])
6262
, parseCookies "foo=\"\\\"bar\\\"\""
6363
@?= (Right [
64-
Cookie "" "" "" "foo" "\"bar\"" False False SameSiteNoValue
64+
Cookie "" "" "" "foo" "\"bar\"" False False SameSiteNoValue False
6565
])
6666
]
6767

0 commit comments

Comments
 (0)