Commit e120c720 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Repair slide processing order

parent 66bf2169
{-- Author: Henrik Tramberend <henrik@tramberend.de> --}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Context
( ActionContext(..)
......@@ -14,11 +15,10 @@ module Context
, getPublicResource
, withShakeLock
, getRelativeSupportDir
) where
import Control.Monad ()
import Common
import Control.Monad ()
import Data.Dynamic
import qualified Data.HashMap.Lazy as HashMap
import Data.IORef
......@@ -111,5 +111,5 @@ withShakeLock perform = do
getRelativeSupportDir :: FilePath -> Action FilePath
getRelativeSupportDir from = do
pub <- public <$> getProjectDirs
let sup = pub </> ("support" ++ "-" ++ deckerVersion)
let sup = pub </> ("support" ++ "-" ++ deckerVersion)
return $ makeRelativeTo from sup
......@@ -213,10 +213,10 @@ readAndProcessMarkdown markdownFile disp = do
pipeline =
concatM
[ expandDeckerMacros
, renderCodeBlocks
, provisionResources
, renderMediaTags
, makeSlides
, renderMediaTags
, renderCodeBlocks
, processCitesWithDefault
, appendScripts
]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment