- case pageRevision page of
- Nothing -> foundTimeStamp lastMod
- Just rev -> foundEntity (strongETag $ show rev) lastMod
-
- setContentType (pageType page)
- outputLBS (pageContent page)
+ setContentType (entityType page)
+ setHeader (C8.pack "Content-Disposition")
+ (C8.pack $ "attachment; filename=" ++ quoteStr (entityFileName' page))
+ outputLBS (entityContent page)