Fix homepage blog link

Handler/Blog.hs

@@ -23,16 +23,10 @@ import Data.Digest.Pure.MD5 (md5)
 import qualified Data.ByteString.Lazy.Char8 as L8
 import Data.Time (utctDay, toGregorian)
 import qualified Data.Foldable as Fo
-import Data.Time (getCurrentTime)
 
 getBlogR :: Handler ()
 getBlogR = getNewestBlog >>= redirect . fst
 
-getBlog :: Handler Blog
-getBlog = do
-    now <- liftIO getCurrentTime
-    (ywBlog <$> getYesod) >>= fmap (filterBlog now) . liftIO . readIORef
-
 getOldBlogPostR :: Slug -> Handler ()
 getOldBlogPostR s = do
     Blog blog <- getBlog

Import.hs

@@ -13,6 +13,7 @@ module Import
     , loadBook
     , loadBlog
     , loadAuthors
+    , getBlog
     ) where
 
 import Prelude hiding (writeFile, readFile)
@@ -53,10 +54,14 @@ getBlogList = do
         (s, p) <- ps
         return (BlogPostR y m s, p)
 
+getBlog :: Handler Blog
+getBlog = do
+    now <- liftIO getCurrentTime
+    (ywBlog <$> getYesod) >>= fmap (filterBlog now) . liftIO . readIORef
+
 getNewestBlog :: Handler (Route YesodWeb, Post)
 getNewestBlog = do
-    iblog <- ywBlog <$> getYesod
-    Blog blog <- liftIO $ readIORef iblog
+    Blog blog <- getBlog
     maybe notFound return $ listToMaybe $ do
         (year, x) <- take 1 $ reverse $ sortBy (comparing fst) $ Map.toList blog
         (month, y) <- take 1 $ reverse $ sortBy (comparing fst) $ Map.toList x