- case pageRevision page of
- 0 -> foundTimeStamp lastMod -- 0 はデフォルトページ
- rev -> foundEntity (strongETag $ show rev) lastMod
-
- setContentType (pageType page)
- outputLBS (pageContent page)
+ setContentType (pageType page)
+ setHeader (C8.pack "Content-Disposition")
+ (C8.pack $ "attachment; filename=" ++ quoteStr (pageFileName' page))
+ outputLBS (pageContent page)