From 4100083709a894225717dbe3068f73057e908dd6 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 4 May 2013 11:36:58 +0200 Subject: Style changes, move stuff to common parser module --- src/Hakyll/Core/Compiler/Internal.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Hakyll/Core/Compiler') diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index fbb7528..5b3e466 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -1,9 +1,9 @@ -------------------------------------------------------------------------------- -- | Internally used compiler module +{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE MultiParamTypeClasses #-} module Hakyll.Core.Compiler.Internal ( -- * Types CompilerRead (..) @@ -31,7 +31,7 @@ import Control.Applicative (Alternative (..), Applicative (..), (<$>)) import Control.Exception (SomeException, handle) import Control.Monad (forM_) -import Control.Monad.Error +import Control.Monad.Error (MonadError (..)) import Data.Monoid (Monoid (..)) import Data.Set (Set) import qualified Data.Set as S @@ -149,6 +149,7 @@ instance MonadMetadata Compiler where getMetadata = compilerGetMetadata getMatches = compilerGetMatches + -------------------------------------------------------------------------------- instance MonadError [String] Compiler where throwError = compilerThrow -- cgit v1.2.3