import Control.Monad
import Data.Maybe
import Data.Time
-import Network.HTTP.Lucu.RFC1123DateTime
+import qualified Data.Time.RFC1123 as RFC1123
import Network.URI
import Rakka.Storage
import Rakka.SystemConfig
mkListItem :: Bool -> HitPage -> IO ListItem
mkListItem showSummary page
= do lastMod <- utcToLocalZonedTime (hpLastMod page)
- return ( [ Inline ( PageLink {
- linkPage = Just (hpPageName page)
- , linkFragment = Nothing
- , linkText = Nothing
- }
- )
+ return ( [ Inline PageLink {
+ linkPage = Just (hpPageName page)
+ , linkFragment = Nothing
+ , linkText = Nothing
+ }
, Block ( Div [("class", "date")]
- [Inline (Text (formatRFC1123DateTime lastMod))]
+ [Inline (Text (RFC1123.format lastMod))]
)
]
++