Fix redirection when instance is in a subfolder

7d1ec0cf · Antoine Fontaine · 877428c6 · 7d1ec0cf
Commit 7d1ec0cf authored Dec 25, 2020 by Antoine Fontaine 👣
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

src/Paste/Handlers.hs src/Paste/Handlers.hs +3 -3

No files found.
--- a/src/Paste/Handlers.hs
+++ b/src/Paste/Handlers.hs
@@ -46,10 +46,10 @@ server :: ConnectionPool  -- ^ Database pool.
 server pool pasteDir instanceUrl = return (homepage instanceUrl)
                              :<|> servePastes pool pasteDir
                              :<|> processUpload pool pasteDir instanceUrl
-                              :<|> redirectToRoot
+                              :<|> redirectToRoot instanceUrl

-redirectToRoot :: [Text] -> Handler Text
-redirectToRoot _ = throwError err303 { errHeaders = [("Location", "/")] }
+redirectToRoot :: Text -> [Text] -> Handler Text
+redirectToRoot instanceUrl _ = throwError err303 { errHeaders = [("Location", encodeUtf8 instanceUrl)] }

 servePastes :: ConnectionPool -- ^ Database pool.
            -> FilePath       -- ^ Directory containing uploads.