@@ -59,13 +59,14 @@ renderDate :: String -- ^ Key in which the rendered date should be placed.
5959renderDate key format defaultValue context = M.insert key value context
6060 where
6161 value = fromMaybe defaultValue pretty
62− pretty = do filePath <- M.lookup "path" context
63− let dateString = substituteRegex "^([0-9]*-[0-9]*-[0-9]*).*" "\\1"
64− (takeFileName filePath)
65− time <- parseTime defaultTimeLocale
66− "%Y-%m-%d"
67− dateString :: Maybe UTCTime
68− return $ formatTime defaultTimeLocale format time
62+ pretty = do
63+ filePath <- M.lookup "path" context
64+ let dateString = substituteRegex "^([0-9]*-[0-9]*-[0-9]*).*" "\\1"
65+ (takeFileName filePath)
66+ time <- parseTime defaultTimeLocale
67+ "%Y-%m-%d"
68+ dateString :: Maybe UTCTime
69+ return $ formatTime defaultTimeLocale format time
6970
7071-- | Change the extension of a file. This is only needed when you want to
7172-- render, for example, mardown to @.php@ files instead of @.html@ files.