startLogger :: (L.Logger l) => l -> Chan (LocalTime,Request) -> IO ThreadId
startLogger l c = forkIO logData
                    where logData = do (t,r) <- readChan c
                                       L.log l t r 
                                       logData
startLogger :: (L.Logger l) => l -> Chan (LocalTime,Request) -> IO ThreadId
startLogger l c = forkIO logData
                    where logData = do (t,r) <- readChan c
                                       L.log l t r 
                                       logData
startLogger l c = forkIO logData
                    where logData = do (t,r) <- readChan c
                                       L.log l t r 
                                       logData