diff options
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 -------------------------------------------------------------------------------- |