View of /trunk/uia/eyo-imap/imap.hs

import Eyo.IMAP.Server( run_server, handle_connection,
                        PortID( PortNumber, Service ) )
import qualified Eyo.IMAP.SASL as SASL
import System.IO( stdin, stdout )
import Control.Monad.Trans( liftIO )

portid = PortNumber 12345
-- portid = Service "imap"

auth = SASL.plain $ \authz auth pw -> do
  print (authz,auth,pw)
  return $ Just auth

--main = handle_connection auth stdin stdout
main = run_server auth portid