Add constRoute

Closes #67

2 files changed, 12 insertions, 0 deletions

diff --git a/src/Hakyll/Core/Routes.hs b/src/Hakyll/Core/Routes.hs
index f351447..c4a0db4 100644
--- a/src/Hakyll/Core/Routes.hs
+++ b/src/Hakyll/Core/Routes.hs
@@ -33,6 +33,7 @@ module Hakyll.Core.Routes
     , setExtension
     , matchRoute
     , customRoute
+    , constRoute
     , gsubRoute
     , composeRoutes
     ) where
@@ -99,6 +100,11 @@ matchRoute pattern (Routes route) = Routes $ \id' ->
 customRoute :: (Identifier a -> FilePath) -> Routes
 customRoute f = Routes $ Just . f . castIdentifier
 
+-- | A route that always gives the same result. Obviously, you should only use
+-- this for a single compilation rule.
+constRoute :: FilePath -> Routes
+constRoute = customRoute . const
+
 -- | Create a gsub route
 --
 -- Example:
diff --git a/tests/Hakyll/Core/Routes/Tests.hs b/tests/Hakyll/Core/Routes/Tests.hs
index 3361846..d204b16 100644
--- a/tests/Hakyll/Core/Routes/Tests.hs
+++ b/tests/Hakyll/Core/Routes/Tests.hs
@@ -6,6 +6,7 @@ module Hakyll.Core.Routes.Tests
 import Test.Framework
 import Test.HUnit hiding (Test)
 
+import Hakyll.Core.Identifier
 import Hakyll.Core.Routes
 import TestSuite.Util
 
@@ -16,6 +17,11 @@ tests = fromAssertions "runRoutes"
     , Just "foo.html" @=? runRoutes (setExtension "html") "foo.markdown"
     , Just "foo.html" @=? runRoutes (setExtension ".html") "foo.markdown"
 
+    , Just "neve ro ddo reven" @=?
+        runRoutes (customRoute (reverse . toFilePath  )) "never odd or even"
+
+    , Just "foo" @=? runRoutes (constRoute "foo") "bar"
+
     , Just "tags/bar.xml" @=?
         runRoutes (gsubRoute "rss/" (const "")) "tags/rss/bar.xml"
     , Just "tags/bar.xml" @=?