{-|
Module      : Text.Censor
Description : A text censorship library.
Copyright   : (c) 2014, Peter Harpending
License     : BSD3
Maintainer  : Peter Harpending <pharpend2@gmail.com>
Stability   : none whatsoever
Portability : archlinux

This library exists to censor rude, sexual, or inflammatory
text. We've all accidentally texted our grandmother calling her a
dirty whore.

-}

module Text.Censor where

-- |The list of bad words
badWords :: [String]
badWords = ["anus", "arse", "arsehole", "ass", "assbag", "assbandit",
            "assbanger", "assbite", "assclown", "asscock", "asscracker", "asses",
            "assface", "assfuck", "assfucker", "assgoblin", "asshat", "asshead",
            "asshole", "asshopper", "assjacker", "asslick", "asslicker",
            "assmonkey", "assmunch", "assmuncher", "assnigger", "asspirate",
            "assshit", "assshole", "asssucker", "asswad", "asswipe", "axwound",
            "bampot", "bastard", "beaner", "bitch", "bitchass", "bitches",
            "bitchtits", "bitchy", "blow job", "blowjob", "bollocks", "bollox",
            "boner", "brotherfucker", "bullshit", "bumblefuck", "butt plug",
            "butt", "buttfucka", "buttfucker", "camel toe", "carpetmuncher",
            "chesticle", "chinc", "chink", "choad", "chode", "clit", "clitface",
            "clitfuck", "clusterfuck", "cock", "cockass", "cockbite",
            "cockburger", "cockface", "cockfucker", "cockhead", "cockjockey",
            "cockknoker", "cockmaster", "cockmongler", "cockmongruel",
            "cockmonkey", "cockmuncher", "cocknose", "cocknugget", "cockshit",
            "cocksmith", "cocksmoke", "cocksmoker", "cocksniffer", "cocksucker",
            "cockwaffle", "coochie", "coochy", "coon", "cooter", "cracker", "cum",
            "cumbubble", "cumdumpster", "cumguzzler", "cumjockey", "cumslut",
            "cumtart", "cunnie", "cunnilingus", "cunt", "cuntass", "cuntface",
            "cunthole", "cuntlicker", "cuntrag", "cuntslut", "dago", "damn",
            "deggo", "dick", "dickbag", "dickbeaters", "dickface", "dickfuck",
            "dickfucker", "dickhead", "dickhole", "dickjuice", "dickmilk",
            "dickmonger", "dicks", "dickslap", "dicksucker", "dicksucking",
            "dicktickler", "dickwad", "dickweasel", "dickweed", "dickwod", "dike",
            "dildo", "dipshit", "doochbag", "dookie", "douche", "douchebag",
            "douchewaffle", "dumass", "dumb ass", "dumbass", "dumbfuck",
            "dumbshit", "dumshit", "dyke", "fag", "fagbag", "fagfucker", "faggit",
            "faggot", "faggotcock", "fagtard", "fatass", "fellatio", "feltch",
            "flamer", "fuck", "fuckass", "fuckbag", "fuckboy", "fuckbrain",
            "fuckbutt", "fuckbutter", "fucked", "fucker", "fuckersucker",
            "fuckface", "fuckhead", "fuckhole", "fuckin", "fucking", "fucknut",
            "fucknutt", "fuckoff", "fucks", "fuckstick", "fucktard", "fucktart",
            "fuckup", "fuckwad", "fuckwit", "fuckwitt", "fudgepacker", "gay",
            "gayass", "gaybob", "gaydo", "gayfuck", "gayfuckist", "gaylord",
            "gaytard", "gaywad", "goddamn", "goddamnit", "gooch", "gook",
            "gringo", "guido", "handjob", "hard on", "heeb", "hell", "ho", "hoe",
            "homo", "homodumbshit", "honkey", "humping", "jackass", "jagoff",
            "jap", "jerk off", "jerkass", "jigaboo", "jizz", "jungle bunny",
            "junglebunny", "kike", "kooch", "kootch", "kraut", "kunt", "kyke",
            "lameass", "lardass", "lesbian", "lesbo", "lezzie", "mcfagget",
            "mick", "minge", "mothafucka", "mothafuckin", "motherfucker",
            "motherfucking", "muff", "muffdiver", "munging", "negro", "nigaboo",
            "nigga", "nigger", "niggers", "niglet", "nut sack", "nutsack", "paki",
            "panooch", "pecker", "peckerhead", "penis", "penisbanger",
            "penisfucker", "penispuffer", "piss", "pissed", "pissed off",
            "pissflaps", "polesmoker", "pollock", "poon", "poonani", "poonany",
            "poontang", "porch monkey", "porchmonkey", "prick", "punanny",
            "punta", "pussies", "pussy", "pussylicking", "puto", "queef", "queer",
            "queerbait", "queerhole", "renob", "rimjob", "ruski", "sand nigger",
            "sandnigger", "schlong", "scrote", "shit", "shitass", "shitbag",
            "shitbagger", "shitbrains", "shitbreath", "shitcanned", "shitcunt",
            "shitdick", "shitface", "shitfaced", "shithead", "shithole",
            "shithouse", "shitspitter", "shitstain", "shitter", "shittiest",
            "shitting", "shitty", "shiz", "shiznit", "skank", "skeet",
            "skullfuck", "slut", "slutbag", "smeg", "snatch", "spic", "spick",
            "splooge", "spook", "suckass", "tard", "testicle", "thundercunt",
            "tit", "titfuck", "tits", "tittyfuck", "twat", "twatlips", "twats",
            "twatwaffle", "unclefucker", "va", "vag", "vagina", "vajayjay",
            "vjayjay", "wank", "wankjob", "wetback", "whore", "whorebag",
            "whoreface", "wop"
           ]
         
-- |Check if one of the bad words is in the list         
check :: String -> [String]
check = filter (`elem` badWords) . words