diff options
Diffstat (limited to 'lib/LintWriter.hs')
| -rw-r--r-- | lib/LintWriter.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs index 87bad02..afcec65 100644 --- a/lib/LintWriter.hs +++ b/lib/LintWriter.hs @@ -40,7 +40,7 @@ module LintWriter , lintConfig -- * adjust the linter's context , adjust - ,offersCWs,resultToCWs) where + ,offersCWs,resultToCWs,offersJitsi,resultToJitsis) where import Universum @@ -126,6 +126,9 @@ resultToCWs :: LintResult a -> [Text] resultToCWs (LinterState a) = fold $ mapMaybe lintToCW $ fst a where lintToCW = \case (CW cw) -> Just cw; _ -> Nothing +resultToJitsis :: LintResult a -> [Text] +resultToJitsis (LinterState a) = mapMaybe lintToJitsi $ fst a + where lintToJitsi = \case (Jitsi room) -> Just room; _ -> Nothing -- | convert a lint result into a flat list of lints resultToLints :: LintResult a -> [Lint] @@ -160,6 +163,9 @@ offersBadge badge = tell' $ Badge badge offersCWs :: [Text] -> LintWriter a offersCWs = tell' . CW +offersJitsi :: Text -> LintWriter a +offersJitsi = tell' . Jitsi + -- | get the context as it was initially, without any modifications askContext :: LintWriter' a a |