module Demote.MultiLeg where data Constraint = Include String | Exclude String deriving (Show) is_excluded stringQueueName (Include regex) = do reg <- mkr return True where mkr = show regex is_excluded stringQueueName (Exclude regex) = do -- reg <- mkr regex return False