diff --git a/test/Lint.hs b/test/Lint.hs
index 78bbb30b9..666398c39 100644
--- a/test/Lint.hs
+++ b/test/Lint.hs
@@ -1,9 +1,9 @@
 module Main (main) where
 
-import Language.Haskell.HLint (hlint)
+import Language.Haskell.HLint (Severity(..), hlint, suggestionSeverity)
 import System.Exit (exitFailure, exitSuccess)
 
 main :: IO ()
 main = do
     hints <- hlint [ "--language=TypeApplications", "src" ]
-    if null hints then exitSuccess else exitFailure
+    if null (filter ((>= Warning) . suggestionSeverity) hints) then exitSuccess else exitFailure