{-| Module : Main Description : A text blocker Copyright : (c) 2014, Peter Harpending License : BSD3 Maintainer : Peter Harpending Stability : none whatsoever Portability : archlinux This is a text blocker - it blocks sexual texts. It is intended for use in other contexts, such as an Andorid app or irssi extension. -} module Main where import System.Environment import Text.Censor main :: IO () main = getArgs >>= (print . check . unwords)