diff --git a/scripts/githooks/haskell-style-lint b/scripts/githooks/haskell-style-lint
index 79e80ad5c1..fd52ede1fd 100755
--- a/scripts/githooks/haskell-style-lint
+++ b/scripts/githooks/haskell-style-lint
@@ -7,15 +7,18 @@
 # ln -s $(git-root)/scripts/githooks/haskell-style-lint $(git rev-parse --git-dir)/hooks/pre-commit
 #
 
+hlint_rc="0"
+
 for x in $(git diff --staged --name-only --diff-filter=ACM "*.hs" | tr '\n' ' '); do
   if grep -qE '^#' "$x"; then
     echo "$x contains CPP.  Skipping."
   else
     stylish-haskell -i "$x"
   fi
-  # fail on linting issues
-  hlint "$x"
+  hlint "$x" || hlint_rc="1"
 done
 
 # fail if there are style issues
-git --no-pager diff --exit-code
+git --no-pager diff --exit-code || exit 1
+# if there are no style issue, there could be hlint issues:
+exit $hlint_rc