[Haskell-cafe] source code for haskell web server?

Does anyone know where I could find the source code for the Haskell web server described in the papers "Tackling the Awkward Squad" by SPJ and "Writing High-Performance Server Applications in Haskell, Case Study: A Haskell Web Server" by Simon Marlow? Thanks in advance, Mike