From fa057f30117e02f13f4a788eb3f52660ab8ab440 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 1 Mar 2011 09:40:07 +0100 Subject: Add `composeRoutes` --- tests/Hakyll/Core/Routes/Tests.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'tests') diff --git a/tests/Hakyll/Core/Routes/Tests.hs b/tests/Hakyll/Core/Routes/Tests.hs index 201c656..3361846 100644 --- a/tests/Hakyll/Core/Routes/Tests.hs +++ b/tests/Hakyll/Core/Routes/Tests.hs @@ -18,4 +18,7 @@ tests = fromAssertions "runRoutes" , Just "tags/bar.xml" @=? runRoutes (gsubRoute "rss/" (const "")) "tags/rss/bar.xml" + , Just "tags/bar.xml" @=? + runRoutes (gsubRoute "rss/" (const "") `composeRoutes` + setExtension "xml") "tags/rss/bar" ] -- cgit v1.2.3