agrafix / Spock

Another Haskell web framework for rapid development
https://www.spock.li
678 stars 56 forks source link

test suite 'spockcoretests' for Spock-core-0.11.0.0 failed to build #102

Closed juhp closed 7 years ago

juhp commented 7 years ago

in the Stackage Nightly build

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’
agrafix commented 7 years ago

Thank's I'll take a look at it.