Link to proper haddock docs on hackage

2 files changed, 46 insertions, 4 deletions

diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index 9a8f923..9fec69b 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -4,6 +4,7 @@
 module Hakyll.Core.Compiler
     ( Compiler
     , getUnderlying
+    , getUnderlyingExtension
     , makeItem
     , getRoute
     , getResourceBody
@@ -31,8 +32,8 @@ import           Control.Applicative           ((<$>))
 import           Data.Binary                   (Binary)
 import           Data.ByteString.Lazy          (ByteString)
 import           Data.Typeable                 (Typeable)
-import           Prelude                       hiding (id, (.))
 import           System.Environment            (getProgName)
+import           System.FilePath               (takeExtension)
 
 
 --------------------------------------------------------------------------------
@@ -53,6 +54,13 @@ getUnderlying = compilerUnderlying <$> compilerAsk
 
 
 --------------------------------------------------------------------------------
+-- | Get the extension of the underlying identifier. Returns something like
+-- @".html"@
+getUnderlyingExtension :: Compiler String
+getUnderlyingExtension = takeExtension . toFilePath <$> getUnderlying
+
+
+--------------------------------------------------------------------------------
 makeItem :: a -> Compiler (Item a)
 makeItem x = do
     identifier <- getUnderlying
diff --git a/web/site.hs b/web/site.hs
index 6130bea..aac6368 100644
--- a/web/site.hs
+++ b/web/site.hs
@@ -1,8 +1,12 @@
 --------------------------------------------------------------------------------
 {-# LANGUAGE OverloadedStrings #-}
-import           Control.Monad (forM_)
-import           Data.Monoid   (mappend)
+import           Control.Applicative ((<$>))
+import           Control.Arrow       (second)
+import           Control.Monad       (forM_)
+import           Data.List           (isPrefixOf)
+import           Data.Monoid         (mappend)
 import           Hakyll
+import           System.FilePath     (dropTrailingPathSeparator, splitPath)
 import           Text.Pandoc
 
 
@@ -14,7 +18,17 @@ main = hakyllWith config $ do
         compile compressCssCompiler
 
     -- Static directories
-    forM_ ["images/*", "examples/*", "reference/**"] $ \f -> match f $ do
+    forM_ ["images/*", "examples/*"] $ \f -> match f $ do
+        route   idRoute
+        compile copyFileCompiler
+
+    -- Haddock stuff
+    match "reference/**.html" $ do
+        route   idRoute
+        compile $ fmap (withUrls hackage) <$> getResourceString
+
+    -- Haddock stuff
+    match ("reference/**" `mappend` complement "**.html") $ do
         route   idRoute
         compile copyFileCompiler
 
@@ -69,3 +83,23 @@ config = defaultConfiguration
     , deployCommand = "rsync --checksum -ave 'ssh -p 2222' \
                       \_site/* jaspervdj@jaspervdj.be:jaspervdj.be/tmp/hakyll4"
     }
+
+
+--------------------------------------------------------------------------------
+-- | Turns
+--
+-- > /usr/share/doc/ghc/html/libraries/base-4.6.0.0/Data-String.html
+--
+-- into
+--
+-- > http://hackage.haskell.org/packages/archive/base/4.6.0.0/doc/html/Data-String.html
+hackage :: String -> String
+hackage url
+    | "/usr" `isPrefixOf` url =
+        "http://hackage.haskell.org/packages/archive/" ++
+        packageName ++ "/" ++ version' ++ "/doc/html/" ++ baseName
+    | otherwise               = url
+  where
+    (packageName, version')  = second (drop 1) $ break (== '-') package
+    (baseName : package : _) = map dropTrailingPathSeparator $
+        reverse $ splitPath url