Hakyll Compiler to create files from inline (embedded in site.hs) content

output.txt

$ ./dist/build/site/site build
Initialising...
  Creating store...
  Creating provider...
  Running rules...
Checking for out-of-date items
Compiling
  updated hello.txt
Success
$ ls _site/
hello.txt
$ cat _site/hello.txt 
Created inline: ./hello.txt

site.hs

import Data.Monoid (mappend)
import System.FilePath (replaceExtension)

import Hakyll.Core.Compiler.Internal (compilerAsk, compilerProvider)
import Hakyll.Core.Provider (resourceFilePath)

import Hakyll


--------------------------------------------------------------------------------
main :: IO ()
main = hakyll $ do
  create ["hello.txt"] $ do
    route idRoute
    compile inlineCompiler


--------------------------------------------------------------------------------
-- | This will copy any file directly by using a system call
newtype InlineContent = InlineContent FilePath
    deriving (Binary, Eq, Ord, Show, Typeable)


--------------------------------------------------------------------------------
instance Writable InlineContent where
    write dst (Item _ (InlineContent src)) = writeFile dst ("Created inline: " ++ src ++ "\n")


--------------------------------------------------------------------------------
inlineCompiler :: Compiler (Item InlineContent)
inlineCompiler = do
  identifier <- getUnderlying
  provider   <- compilerProvider <$> compilerAsk
  makeItem $ InlineContent $ resourceFilePath provider identifier