@@ -420,7 +420,7 @@ createIndex nss out =
420 BS2.hPut h $ renderHtml $ wrapper Nothing $ do
420 BS2.hPut h $ renderHtml $ wrapper Nothing $ do
421 H.h1 $ "Namespaces"
421 H.h1 $ "Namespaces"
422 H.ul ! class_ "names" $ do
422 H.ul ! class_ "names" $ do
423− let path ns = "docs" </> genRelNsPath ns "html"
423+ let path ns = "docs" ++ "/" ++ genRelNsPath ns "html"
424 item ns = do let n = toHtml $ nsName2Str ns
424 item ns = do let n = toHtml $ nsName2Str ns
425 link = toValue $ path ns
425 link = toValue $ path ns
426 H.li $ H.a ! href link ! class_ "code" $ n
426 H.li $ H.a ! href link ! class_ "code" $ n
@@ -663,7 +663,7 @@ existingNamespaces :: FilePath -- ^ The base directory containing the
663 -- namespace pages
663 -- namespace pages
664 -> IO (S.Set NsName)
664 -> IO (S.Set NsName)
665existingNamespaces out = do
665existingNamespaces out = do
666− let docs = out </> "docs"
666+ let docs = out ++ "/" ++ "docs"
667 str2Ns s | s == rootNsStr = []
667 str2Ns s | s == rootNsStr = []
668 str2Ns s = reverse $ T.splitOn (T.singleton '.') (txt s)
668 str2Ns s = reverse $ T.splitOn (T.singleton '.') (txt s)
669 toNs fp = do isFile <- doesFileExist $ docs </> fp
669 toNs fp = do isFile <- doesFileExist $ docs </> fp