Permalink
Browse files

Style nazi strikes again.

  • Loading branch information...
1 parent 3033bd1 commit 61e1b1f6c96fbfe1d5c9b3dd6effaf716c8356b3 @mightybyte mightybyte committed Oct 28, 2011
@@ -127,8 +127,8 @@ runChildrenWith splices = localTS (bindSplices splices) runChildren
------------------------------------------------------------------------------
--- | Wrapper around runChildrenWith that applies a transformation function to the
--- second item in each of the tuples before calling runChildrenWith.
+-- | Wrapper around runChildrenWith that applies a transformation function to
+-- the second item in each of the tuples before calling runChildrenWith.
runChildrenWithTrans :: (Monad m)
=> (b -> Splice m)
-- ^ Splice generating function
@@ -56,7 +56,7 @@ parseTTL s = value * multiplier
'd' -> 86400
'w' -> 604800
_ -> 0
-
+
------------------------------------------------------------------------------
-- | The \"cache\" splice ensures that its contents are cached and only
-- evaluated periodically. The cached contents are returned every time the
@@ -81,16 +81,16 @@ cacheImpl (CTS mv) = do
mp <- liftIO $ readMVar mv
(mp',ns) <- do
- curTime <- liftIO getCurrentTime
+ cur <- liftIO getCurrentTime
let mbn = Map.lookup i mp
reload = do
nodes' <- runNodeList $ childNodes tree
- return $! (Map.insert i (curTime,nodes') mp, nodes')
+ return $! (Map.insert i (cur,nodes') mp, nodes')
case mbn of
Nothing -> reload
(Just (lastUpdate,n)) -> do
if ttl > 0 && tagName tree == Just cacheTagName &&
- diffUTCTime curTime lastUpdate > fromIntegral ttl
+ diffUTCTime cur lastUpdate > fromIntegral ttl
then reload
else do
stopRecursion
@@ -53,7 +53,8 @@ data NoMarkdownFileException = NoMarkdownFileException
instance Show NoMarkdownFileException where
show NoMarkdownFileException =
- "Markdown error: no file or template in context during processing of markdown tag"
+ "Markdown error: no file or template in context" ++
+ " during processing of markdown tag"
instance Exception NoMarkdownFileException where

0 comments on commit 61e1b1f

Please sign in to comment.