From 2f1ae11f7d31b26d9de2eeb264716d4416eeaccf Mon Sep 17 00:00:00 2001 From: sh Date: Tue, 5 May 2026 12:23:40 +0000 Subject: [PATCH] xftp: web page tweaks --- apps/xftp-server/XFTPWeb.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/apps/xftp-server/XFTPWeb.hs b/apps/xftp-server/XFTPWeb.hs index dfef690be..a9ee55e15 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 s -> 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