Fix host uri

cotrone · Sep 27, 2023 · e1b0c88 · e1b0c88
1 parent 38fd663
commit e1b0c88
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Web/WebPush/Internal.hs b/src/Web/WebPush/Internal.hs
@@ -164,7 +164,7 @@ hostHeaders vapidKeys serverIdentification = do
 uriHost :: URI -> Maybe T.Text
 uriHost uri = do
   regName <- uriRegName <$> uriAuthority uri
-  pure $ T.pack $ uriScheme uri <> regName
+  pure $ T.pack $ uriScheme uri <> "//" <> regName
 
 -- Conversions among integers and bytes
 -- The bytes are in network/big endian order.

diff --git a/web-push-example/test/Main.hs b/web-push-example/test/Main.hs
@@ -159,7 +159,7 @@ subscribe testServer = do
   gaveUp <- liftIO $ waitForSingleSubscription delay testServer
   when gaveUp $ do
     deleteSession
-    fail "Timed out waiting for subscription"
+    assertFailure "Timed out waiting for subscription"
   liftIO $ putStrLn "Got subscription"
   liftIO $ appSendPushNotification (testServerConfig testServer) "test"
 -- liftIO $ putStrLn "Waiting for notsification"