From f56eb538b6e366202f796c84eee46e620f519ff6 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 7 Feb 2011 16:01:09 +0100 Subject: Lazy pattern matching for compiler composition --- src/Hakyll/Core/Compiler/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Core/Compiler') 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 -- cgit v1.2.3