@@ -36,7 +36,7 @@ import qualified Pipes.Prelude as P
36queryPursuit :: Text -> IO ByteString
36queryPursuit :: Text -> IO ByteString
37queryPursuit q = do
37queryPursuit q = do
38 let qClean = T.dropWhileEnd (== '.') q
38 let qClean = T.dropWhileEnd (== '.') q
39− req' <- parseRequest "http://pursuit.purescript.org/search"
39+ req' <- parseRequest "https://pursuit.purescript.org/search"
40 let req = req'
40 let req = req'
41 { queryString= "q=" <> (fromString . T.unpack) qClean
41 { queryString= "q=" <> (fromString . T.unpack) qClean
42 , requestHeaders=[(hAccept, "application/json")]
42 , requestHeaders=[(hAccept, "application/json")]