Main.hs

module Main where

-- Challenge: rudimentary spam filter
-- given the sample blacklist and comments check to see if
-- the phrases in the blacklist are in the comment

import Data.List (isInfixOf)

type BlackList = [String]
type Comment = String

comment1 :: Comment
comment1 = "Collection of my foo bar"
 
comment2 :: Comment
comment2 = "How to get free hotel upgrades"

blackList :: BlackList
blackList =
  [
     "foo bar",
     "baz qux quux",
     "spam",
     "grault garply i",
     "grault garply ii"
  ]

inBlackList :: Comment -> BlackList -> Bool
inBlackList comment blacklist =
  any (\phrase -> isInfixOf phrase comment) blacklist

main = 
  print
  $ show
  $ inBlackList comment1 blacklist