@@ -420,7 +420,7 @@ createIndex nss out =
420420 BS2.hPut h $ renderHtml $ wrapper Nothing $ do
421421 H.h1 $ "Namespaces"
422422 H.ul ! class_ "names" $ do
423− let path ns = "docs" </> genRelNsPath ns "html"
423+ let path ns = "docs" ++ "/" ++ genRelNsPath ns "html"
424424 item ns = do let n = toHtml $ nsName2Str ns
425425 link = toValue $ path ns
426426 H.li $ H.a ! href link ! class_ "code" $ n
@@ -663,7 +663,7 @@ existingNamespaces :: FilePath -- ^ The base directory containing the
663663 -- namespace pages
664664 -> IO (S.Set NsName)
665665existingNamespaces out = do
666− let docs = out </> "docs"
666+ let docs = out ++ "/" ++ "docs"
667667 str2Ns s | s == rootNsStr = []
668668 str2Ns s = reverse $ T.splitOn (T.singleton '.') (txt s)
669669 toNs fp = do isFile <- doesFileExist $ docs </> fp