standardHeaders :: IO W.ResponseHeaders
standardHeaders = do
  dtStr <- H.getApproximateTime
  return
    [ ("Date", dtStr)
    , serverIdent
    , waiIdent
    ]

-- | Convert a Happstack 'H.Response' to a WAI 'W.Response'
standardHeaders :: IO W.ResponseHeaders
standardHeaders = do
  dtStr <- H.getApproximateTime
  return
    [ ("Date", dtStr)
    , serverIdent
    , waiIdent
    ]

-- | Convert a Happstack 'H.Response' to a WAI 'W.Response'
standardHeaders = do
  dtStr <- H.getApproximateTime
  return
    [ ("Date", dtStr)
    , serverIdent
    , waiIdent
    ]

-- | Convert a Happstack 'H.Response' to a WAI 'W.Response'