Use HTTPS to query Pursuit
commit642f939ec08dba4b7616790d1fdcc4b84ebd0abe
authorPhil Freeman <paf31@cantab.net>
dateMon 5 Dec 2016, 21:18 (10 years ago)
parent6954b06
src/Language/PureScript/Ide/Pursuit.hs+1−1
@@ -36,7 +36,7 @@ import qualified Pipes.Prelude as P
3636queryPursuit :: Text -> IO ByteString
3737queryPursuit q = do
3838 let qClean = T.dropWhileEnd (== '.') q
39− req' <- parseRequest "http://pursuit.purescript.org/search"
39+ req' <- parseRequest "https://pursuit.purescript.org/search"
4040 let req = req'
4141 { queryString= "q=" <> (fromString . T.unpack) qClean
4242 , requestHeaders=[(hAccept, "application/json")]