snap-core 0.3 build failure

src/Snap/Internal/Http/Parser.hs:126:4:
    Couldn't match expected type `Iteratee IO a'
           against inferred type `(a1, b)'
    In the pattern: (out, _)
    In a stmt of a 'do' expression:
        (out, _) <- unsafeBufferIterateeWithBuffer
                      buf (ignoreEOF $ wrap killwrap it)
    In the expression:
        do { killwrap <- newIORef False;
             (out, _) <- unsafeBufferIterateeWithBuffer
                           buf (ignoreEOF $ wrap killwrap it);
             i <- enum out;
             v <- runIter i (EOF Nothing);
             .... }