Skip to content

Instantly share code, notes, and snippets.

@srhoulam
srhoulam / site-suggested-posts.hs
Created April 16, 2019 09:22
A Hakyll site file that provides for blog posts to link to "suggested" posts.
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
import Data.Binary (Binary (..))
import Data.Monoid ((<>))
import System.Random.Shuffle (shuffle')
import System.Random.TF (newTFGen)
import Data.Typeable (Typeable (..))
import Hakyll
@srhoulam
srhoulam / site-adjacent-posts.hs
Last active April 16, 2019 09:34
A Hakyll site file that provides for blog posts to link to chronologically-adjacent posts.
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
import Control.Monad.Trans.Maybe
import Data.Binary (Binary (..))
import Data.List (find)
import Data.Monoid ((<>))
import Data.Time.Locale.Compat (defaultTimeLocale)
import Data.Typeable (Typeable (..))
import Hakyll