diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:50:22 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:50:22 +0100 |
| commit | b5adcb69d1cd26e613c5c56c85307050bb8297cf (patch) | |
| tree | bb9485213f2c2fa022c2a363de26ad0561f1d8c9 /src/Hakyll | |
| parent | bfa10560f87b1843f9302a70f6c9333fc2731e88 (diff) | |
| download | hakyll-b5adcb69d1cd26e613c5c56c85307050bb8297cf.tar.gz | |
Update more tests
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Core/UnixFilter.hs | 4 | ||||
| -rw-r--r-- | src/Hakyll/Core/Util/Arrow.hs | 40 |
2 files changed, 2 insertions, 42 deletions
diff --git a/src/Hakyll/Core/UnixFilter.hs b/src/Hakyll/Core/UnixFilter.hs index ce1e9db..dc82366 100644 --- a/src/Hakyll/Core/UnixFilter.hs +++ b/src/Hakyll/Core/UnixFilter.hs @@ -26,7 +26,7 @@ import Hakyll.Core.Compiler -- as a compiler. -- -- > rev :: Compiler String --- > rev = getResourceString >>= unixFilter "rev" [] +-- > rev = getResourceString >>= itemM (unixFilter "rev" []) -- -- A more realistic example: one can use this to call, for example, the sass -- compiler on CSS files. More information about sass can be found here: @@ -38,7 +38,7 @@ import Hakyll.Core.Compiler -- > match "style.scss" $ do -- > route $ setExtension "css" -- > compile $ getResourceString >>= --- > unixFilter "sass" ["-s", "--scss"] >>= +-- > itemM (unixFilter "sass" ["-s", "--scss"]) >>= -- > compressCssCompiler unixFilter :: String -- ^ Program name -> [String] -- ^ Program args diff --git a/src/Hakyll/Core/Util/Arrow.hs b/src/Hakyll/Core/Util/Arrow.hs deleted file mode 100644 index 96a5e09..0000000 --- a/src/Hakyll/Core/Util/Arrow.hs +++ /dev/null @@ -1,40 +0,0 @@ --------------------------------------------------------------------------------- --- | Various arrow utility functions -module Hakyll.Core.Util.Arrow - ( ArrowMap (..) - , constA - , sequenceA - , unitA - ) where - - --------------------------------------------------------------------------------- -import Control.Arrow (Arrow, ArrowChoice, arr, (&&&), (>>^)) - - --------------------------------------------------------------------------------- --- | Additional arrow typeclass for performance reasons. -class ArrowChoice a => ArrowMap a where - mapA :: a b c -> a [b] [c] - - --------------------------------------------------------------------------------- -instance ArrowMap (->) where - mapA = map - - --------------------------------------------------------------------------------- -constA :: Arrow a => c -> a b c -constA = arr . const - - --------------------------------------------------------------------------------- -sequenceA :: Arrow a => [a b c] -> a b [c] -sequenceA = foldr reduce $ constA [] - where - reduce xa la = xa &&& la >>^ arr (uncurry (:)) - - --------------------------------------------------------------------------------- -unitA :: Arrow a => a b () -unitA = constA () |