snap-core 0.4.0.1 → 0.4.0.2

raw patch · 2 files changed

+6/−2 lines, 2 files

Files

• snap-core.cabal +1/−1
• src/Snap/Iteratee.hs +5/−1

@@ -1,5 +1,5 @@ name:           snap-core-version:        0.4.0.1+version:        0.4.0.2 synopsis:       Snap: A Haskell Web Framework (Core)  description:

@@ -137,7 +137,11 @@     catch m handler = Iteratee $ do         ee <- try $ runIteratee (m `catchError` h)         case ee of-          (Left e)  -> runIteratee (handler e)+          -- if we got an async exception here then the iteratee workflow is+          -- all messed up, we have no reasonable choice but to send EOF to the+          -- handler, because the unparsed input got lost. If the enumerator+          -- sends more chunks we can possibly recover later.+          (Left e)  -> runIteratee (enumEOF $$ handler e)           (Right v) -> step v       where         step (Continue k)  = return $ Continue (\s -> k s `catch` handler)