Vuelva a conectar automáticamente una conexión de la red Haskell de una manera idiomática

Question

Me he abierto paso a través de Don Stewart's Roll your own IRC bot tutorial, y estoy jugando con algunas extensiones a la misma. Mi código actual es esencialmente el mismo que "El robot monádico, con estado y con manejo de excepciones en todo su esplendor"; es demasiado largo para pegar aquí a menos que alguien lo solicite.

Al ser un suscriptor de Comcast, es particularmente importante que el bot pueda volver a conectarse después de períodos de mala conectividad. Mi enfoque es simplemente sincronizar las solicitudes PING del servidor, y si se va sin ver un PING durante un tiempo determinado, para intentar volver a conectar.

Hasta ahora, la mejor solución que he encontrado es envolver el hGetLine en el lazo listen con System.Timeout.timeout. Sin embargo, esto parece requerir la definición de una excepción personalizada para que el catch en main pueda llamar de nuevo a main, en lugar de return(). También parece bastante frágil especificar un valor de tiempo de espera para cada individuo hGetLine.

¿Existe una solución mejor, tal vez algo que envuelve una IO a como bracket y catch para que todo el principal puede manejar los tiempos de espera de red sin el añadido de un nuevo tipo de excepción?

Answer 1

¿Qué tal si ejecuta una secuencia separada que realiza toda la lectura y escritura y se encarga de volver a conectar periódicamente la palanca?

Algo como esto

input :: Chan Char 
output :: Chan Char 

putChar c = writeChan output c 

keepAlive = forever $ do 
    h <- connectToServer 
    catch 
     (forever $ 
       do c <- readChan output; timeout 4000 (hPutChar h c); return()) 
     (\_ -> return()) 

La idea es encapsular toda la dificultad de volver a conectar periódicamente en un hilo separado.