diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-10-17 11:05:25 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-10-17 11:05:25 +0200 |
| commit | 2db34f050aa250c4c11a35cb201cc1c7a28d083d (patch) | |
| tree | 380377956068c0bb0499dc5366249f9e1ff34458 /src | |
| parent | 43e78fcdc755adcac61b3d2f1645037d3eff8fbb (diff) | |
| download | hakyll-2db34f050aa250c4c11a35cb201cc1c7a28d083d.tar.gz | |
Move from test-framework to tasty
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Check.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index c917f3a..157b5d7 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -204,7 +204,7 @@ checkExternalUrl url = do result <- liftIO $ try $ do mgr <- Http.newManager Http.tlsManagerSettings runResourceT $ do - request <- Http.parseUrl urlToCheck + request <- Http.parseRequest urlToCheck response <- Http.http (settings request) mgr let code = Http.statusCode (Http.responseStatus response) return $ code >= 200 && code < 300 |