never executed always true always false

    1 {-# LANGUAGE LambdaCase #-}
    2 module GHC.Parser.Errors.Basic where
    3 
    4 import GHC.Utils.Outputable ( SDoc, text )
    5 
    6 -- | The operator symbol in the 'PsOperatorWhitespaceExtConflictMessage' diagnostic.
    7 data OperatorWhitespaceSymbol
    8    = OperatorWhitespaceSymbol_PrefixPercent
    9    | OperatorWhitespaceSymbol_PrefixDollar
   10    | OperatorWhitespaceSymbol_PrefixDollarDollar
   11 
   12 pprOperatorWhitespaceSymbol :: OperatorWhitespaceSymbol -> SDoc
   13 pprOperatorWhitespaceSymbol = \case
   14   OperatorWhitespaceSymbol_PrefixPercent      -> text "%"
   15   OperatorWhitespaceSymbol_PrefixDollar       -> text "$"
   16   OperatorWhitespaceSymbol_PrefixDollarDollar -> text "$$"
   17 
   18 -- | The operator occurrence type in the 'PsOperatorWhitespaceMessage' diagnostic.
   19 data OperatorWhitespaceOccurrence
   20    = OperatorWhitespaceOccurrence_Prefix
   21    | OperatorWhitespaceOccurrence_Suffix
   22    | OperatorWhitespaceOccurrence_TightInfix