diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2016-10-31 11:06:41 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-10-31 11:06:41 +0100 |
| commit | 04945a51d8d61142939ec0d9b2dd6c12f02ab1bc (patch) | |
| tree | b8817f077e5981b72d949df2338df866bd2b1511 /src | |
| parent | ab34240bb53565ce7179432cd75fd67adddb4e7c (diff) | |
| parent | 218d68363adc426b91dcbcdfb44f9f3da85f2e7a (diff) | |
| download | hakyll-04945a51d8d61142939ec0d9b2dd6c12f02ab1bc.tar.gz | |
Merge pull request #478 from lfairy/update-deps
Update dependencies!
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Check.hs | 3 | ||||
| -rw-r--r-- | src/Hakyll/Main.hs | 3 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index 157b5d7..b41b40e 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -236,8 +236,7 @@ checkExternalUrl url = do -- Convert exception to a concise form showException e = case cast e of - Just (Http.StatusCodeException (Http.Status code msg) _ _) -> - show code ++ " " ++ unpack msg + Just (Http.HttpExceptionRequest _ e') -> show e' _ -> head $ words $ show e #else checkExternalUrl _ = return () diff --git a/src/Hakyll/Main.hs b/src/Hakyll/Main.hs index c46c705..b48743b 100644 --- a/src/Hakyll/Main.hs +++ b/src/Hakyll/Main.hs @@ -16,7 +16,8 @@ import System.Exit (ExitCode(ExitSuccess), exitWit -------------------------------------------------------------------------------- -import Options.Applicative +import Data.Monoid ((<>)) +import Options.Applicative -------------------------------------------------------------------------------- |