diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-07 16:01:09 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-07 16:01:09 +0100 |
| commit | f56eb538b6e366202f796c84eee46e620f519ff6 (patch) | |
| tree | 604126c23142bcd35c5451df38e52b9cdca9decc /src/Hakyll/Core/Compiler | |
| parent | 986a74b3af664b824a5c67524d2433d7e990f502 (diff) | |
| download | hakyll-f56eb538b6e366202f796c84eee46e620f519ff6.tar.gz | |
Lazy pattern matching for compiler composition
Diffstat (limited to 'src/Hakyll/Core/Compiler')
| -rw-r--r-- | src/Hakyll/Core/Compiler/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs index 6737b6a..be78412 100644 --- a/src/Hakyll/Core/Compiler/Internal.hs +++ b/src/Hakyll/Core/Compiler/Internal.hs @@ -69,7 +69,7 @@ instance Applicative (Compiler a) where instance Category Compiler where id = Compiler (return S.empty) return - (Compiler d1 j1) . (Compiler d2 j2) = + ~(Compiler d1 j1) . ~(Compiler d2 j2) = Compiler (liftM2 S.union d1 d2) (j1 <=< j2) instance Arrow Compiler where |