test/Web/Spock/FrameworkSpecHelper.hs:31:25: error:
• Couldn't match expected type ‘MatchBody’
with actual type ‘Maybe a’
• In the ‘matchBody’ field of a record
In the expression:
ResponseMatcher
{matchStatus = s, matchBody = Just b, matchHeaders = []}
In an equation for ‘matcher’:
matcher s b
= ResponseMatcher
{matchStatus = s, matchBody = Just b, matchHeaders = []}
• Relevant bindings include
b :: a (bound at test/Web/Spock/FrameworkSpecHelper.hs:28:17)
matcher :: Int -> a -> ResponseMatcher
(bound at test/Web/Spock/FrameworkSpecHelper.hs:28:7)
test/Web/Spock/FrameworkSpecHelper.hs:170:12: error:
• Couldn't match expected type ‘Body -> Maybe String’
with actual type ‘Maybe [Char]’
• Possible cause: ‘loop’ is applied to too many arguments
In the expression: loop relevantHeaders
In the expression:
let
relevantHeaders = filter (\ h -> fst h == "Set-Cookie") headers
loop []
= Just
("No cookie named "
++ T.unpack name ++ " with value " ++ T.unpack val ++ " found")
loop (x : xs) = let ... in ...
in loop relevantHeaders
In the second argument of ‘($)’, namely
‘\ headers
-> let
relevantHeaders = ...
....
in loop relevantHeaders’
in the Stackage Nightly build