fix small bug

diagnose.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           diagnose
-version:        2.3.0
+version:        2.3.1
 synopsis:       Beautiful error reporting done easily
 description:    This package provides a simple way of getting beautiful compiler/interpreter errors
                 using a very simple interface for the programmer.

package.yaml

@@ -1,5 +1,5 @@
 name: diagnose
-version: 2.3.0
+version: 2.3.1
 github: "mesabloo/diagnose"
 license: BSD3
 author: "Ghilain Bergeron"

src/Error/Diagnose/Diagnostic/Internal.hs

@@ -69,8 +69,8 @@ instance ToJSON msg => ToJSON (Diagnostic msg) where
 
 -- | Checks whether the given diagnostic has any report or not (if it is effectively empty).
 hasReports :: Diagnostic msg -> Bool
-hasReports (Diagnostic DL.Nil _) = True
-hasReports _ = False
+hasReports (Diagnostic DL.Nil _) = False
+hasReports _ = True
 
 -- | Transforms every warning report in this diagnostic into an error report.
 warningsToErrors :: Diagnostic msg -> Diagnostic msg