diff --git a/src/Action/Server.hs b/src/Action/Server.hs
index 3edac405..635dedda 100644
--- a/src/Action/Server.hs
+++ b/src/Action/Server.hs
@@ -247,7 +247,7 @@ showFroms local haddock xs = mconcat $ intersperse ", " $ flip map pkgs $ \p ->
         pkgs = nubOrd $ map targetPackage xs
 
 showURL :: Bool -> Maybe FilePath -> URL -> String
-showURL _ (Just _) x = "haddock/" ++ dropPrefix "file:///" x
+showURL _ (Just haddock) x = "haddock/" ++ dropPrefix ("file://" ++ haddock) x
 showURL True _ (stripPrefix "file:///" -> Just x) = "file/" ++ x
 showURL _ _ x = x