47         case q of

    47         case q of

    48             CheckAccount clId clUid _ clHost ->

    48             CheckAccount clId clUid _ clHost ->

    49                 writeChan (coreChan si) $ ClientAccountInfo clId clUid (if clHost `L.elem` localAddressList then Admin else Guest)

    49                 writeChan (coreChan si) $ ClientAccountInfo clId clUid (if clHost `L.elem` localAddressList then Admin else Guest)

    50             ClearCache -> return ()

    50             ClearCache -> return ()

    51             SendStats {} -> return ()

    51             SendStats {} -> return ()

    52         flushRequests si

    54         flushRequests si

    53 

    55 

    54 pipeDbConnectionLoop :: Chan DBQuery -> Chan CoreMessage -> Handle -> Handle -> Map.Map ByteString (UTCTime, AccountInfo) -> Int -> IO (Map.Map ByteString (UTCTime, AccountInfo), Int)

    56 pipeDbConnectionLoop :: Chan DBQuery -> Chan CoreMessage -> Handle -> Handle -> Map.Map ByteString (UTCTime, AccountInfo) -> Int -> IO (Map.Map ByteString (UTCTime, AccountInfo), Int)

    55 pipeDbConnectionLoop queries cChan hIn hOut accountsCache req =

    57 pipeDbConnectionLoop queries cChan hIn hOut accountsCache req =

    56     Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return (accountsCache, req)) $

    58     Exception.handle (\(e :: Exception.IOException) -> warningM "Database" (show e) >> return (accountsCache, req)) $