Searched refs:SafeFlagPragma (Results 1 – 5 of 5) sorted by relevance
189 SafeFlagPragma xs ->446 let pragmas w = case tcWarning w of { SafeFlagPragma ps -> ([w], ps); _ -> ([], []) }449 [TCWarning loc r (SafeFlagPragma sfp) p b]
38 when (Lens.getSafeMode opts && not (null unsafe)) $ warning $ SafeFlagPragma unsafe
3303 | SafeFlagPragma [String] -- ^ Unsafe OPTIONS. constructor3406 SafeFlagPragma{} -> SafeFlagPragma_
43 SafeFlagPragma a -> __IMPOSSIBLE__
441 SafeFlagPragma{} -> errorWarningHighlighting w