diff options
Diffstat (limited to 'src/Hakyll/Core/Run.hs')
| -rw-r--r-- | src/Hakyll/Core/Run.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs index 643aa4e..8bde15d 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -89,8 +89,8 @@ data RuntimeEnvironment = RuntimeEnvironment } data RuntimeState = RuntimeState - { hakyllAnalyzer :: DependencyAnalyzer Identifier - , hakyllCompilers :: Map Identifier (Compiler () CompileRule) + { hakyllAnalyzer :: DependencyAnalyzer (Identifier ()) + , hakyllCompilers :: Map (Identifier ()) (Compiler () CompileRule) } newtype Runtime a = Runtime @@ -99,7 +99,7 @@ newtype Runtime a = Runtime -- | Add a number of compilers and continue using these compilers -- -addNewCompilers :: [(Identifier, Compiler () CompileRule)] +addNewCompilers :: [(Identifier (), Compiler () CompileRule)] -- ^ Compilers to add -> Runtime () addNewCompilers newCompilers = Runtime $ do @@ -157,14 +157,14 @@ stepAnalyzer = Runtime $ do -- | Dump cyclic error and quit -- -dumpCycle :: [Identifier] -> Runtime () +dumpCycle :: [Identifier ()] -> Runtime () dumpCycle cycle' = Runtime $ do logger <- hakyllLogger <$> ask section logger "Dependency cycle detected! Conflict:" forM_ (zip cycle' $ drop 1 cycle') $ \(x, y) -> report logger $ show x ++ " -> " ++ show y -build :: Identifier -> Runtime () +build :: Identifier () -> Runtime () build id' = Runtime $ do logger <- hakyllLogger <$> ask routes <- hakyllRoutes <$> ask |