Hyphenation of words in hakyll

gistfile1.hs

import           Text.Hyphenation    (hyphenate, english_GB)
import           Text.Pandoc         (bottomUp, Pandoc)
import           Text.Pandoc.Definition
------------------------------------------------------------
hyphenatePandoc :: Pandoc -> Pandoc
hyphenatePandoc = bottomUp (hyphInline :: Inline -> Inline)
                  where hyphW = intercalate "\x00AD" . hyphenate english_GB
                        hyphWs = unwords . map hyphW . words
                        hyphInline (Str str) = Str $ hyphWs str
                        hyphInline a = a
------------------------------------------------------------
--      …
        compile $ pandocCompilerWithTransform defaultHakyllReaderOptions
                                              defaultHakyllWriterOptions
                                              hyphenatePandoc
--      …