Add cassandra mailling

erebe · Mar 5, 2018 · 72ff272 · 72ff272
1 parent 0dd7bf1
commit 72ff272
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/app/Classifier.hs b/app/Classifier.hs
@@ -69,8 +69,11 @@ devNull = for $ anyOf ["devnull@"]
 tabulaRasa :: Match Any
 tabulaRasa = for $ anyOf ["tabula.rasa@erebe.eu", "editeur.algo@erebe.eu"]
 
+cassandraMailling :: Match Any
+cassandraMailling = mailingList $ anyOf ["cassandra.apache.org"]
+
 haskellCafe :: Match Any
-haskellCafe = mailingList $ anyOf ["haskell-cafe" ]
+haskellCafe = mailingList $ anyOf ["haskell-cafe"]
 
 haskellBeg :: Match Any
 haskellBeg = mailingList $ anyOf ["beginners.haskell.org"]
@@ -139,8 +142,9 @@ main = do
           , [famille]      ->> const ".Famille/"
 
            -- Mailing List
-          , [haskellCafe]  ->> const ".Mailing.Haskell-Cafe/"
-          , [haskellBeg]   ->> const ".Mailing.Haskell-Beginner/"
+          , [haskellCafe]         ->> const ".Mailing.Haskell-Cafe/"
+          , [haskellBeg]          ->> const ".Mailing.Haskell-Beginner/"
+          , [cassandraMailling]   ->> const ".Mailing.Cassandra/"
 
            -- Professionnel
           , [atos]         ->> const ".Professionnel.Bull/"