implement case expression in displaySeverity

haskell · Oct 18, 2023 · 19c5100 · 19c5100
1 parent 95cfcdc
commit 19c5100
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cabal-install/src/Distribution/Client/Init/Types.hs b/cabal-install/src/Distribution/Client/Init/Types.hs
@@ -458,10 +458,10 @@ instance Exception BreakException
 data Severity = Info | Warning | Error deriving (Eq)
 
 displaySeverity :: Severity -> String
-displaySeverity severity
-  | severity == Info = "Info"
-  | severity == Warning = "Warn"
-  | severity == Error = "Err"
+displaySeverity severity = case severity of
+  Info -> "Info"
+  Warning -> "Warn"
+  Error -> "Err"
 
 -- | Convenience alias for the literate haskell flag
 type IsLiterate = Bool