diff --git a/apps/common/Web/static/index.html b/apps/common/Web/static/index.html index 10caed33a7..a5b42313ad 100644 --- a/apps/common/Web/static/index.html +++ b/apps/common/Web/static/index.html @@ -105,13 +105,13 @@ class="text-[16px] leading-[26px] tracking-[0.01em] nav-link-text text-black dark:text-white before:bg-black dark:before:bg-white">Server information - + Donate diff --git a/apps/xftp-server/XFTPWeb.hs b/apps/xftp-server/XFTPWeb.hs index a3edb41f0e..d0b450ece8 100644 --- a/apps/xftp-server/XFTPWeb.hs +++ b/apps/xftp-server/XFTPWeb.hs @@ -31,8 +31,8 @@ xftpWebContent = $(embedDir "apps/xftp-server/static/xftp-web-bundle/") xftpMediaContent :: [(FilePath, ByteString)] xftpMediaContent = $(embedDir "apps/xftp-server/static/media/") -xftpFilePageHtml :: ByteString -xftpFilePageHtml = $(embedFile "apps/xftp-server/static/file.html") +-- xftpFilePageHtml :: ByteString +-- xftpFilePageHtml = $(embedFile "apps/xftp-server/static/file.html") xftpGenerateSite :: XFTPServerConfig -> Maybe ServerPublicInfo -> Maybe TransportHost -> FilePath -> IO () xftpGenerateSite cfg info onionHost path = do @@ -44,7 +44,7 @@ xftpGenerateSite cfg info onionHost path = do filePage xftpDir xftpWebContent filePage mediaDir xftpMediaContent createDirectoryIfMissing True fileDir - B.writeFile (fileDir "index.html") $ render xftpFilePageHtml substs + -- B.writeFile (fileDir "index.html") $ render xftpFilePageHtml substs where filePage dir content_ = do createDirectoryIfMissing True dir