Module for checking users in mailman list group

Mailman.hs

module Mailman where

import System.Process (readProcessWithExitCode)
import System.Exit (ExitCode(..))
import Data.List

type MailingList = String

-- Before using this module:
-- Make sure you have `list_members` command available, and that you don't
-- get any permission denied errors when using it with any user.

-- > listsToCids "[email protected]\[email protected]\[email protected]"
-- ["rarash"]
listsToCids :: String -> [String]
listsToCids = map (takeWhile (/='@'))
            . filter (isSuffixOf "@student.chalmers.se")
            . lines

getMembers :: MailingList -> IO(Either String [String])
getMembers maillist = do
  (exitCode, sout, serr) <- readProcessWithExitCode "list_members" [maillist] ""
  case exitCode of
    ExitSuccess -> return $ Right $ listsToCids sout
    _           -> return $ Left $ show exitCode ++ ":\n\n" ++ serr