equal
deleted
inserted
replaced
38 |
38 |
39 |
39 |
40 #if defined(OFFICIAL_SERVER) |
40 #if defined(OFFICIAL_SERVER) |
41 ------------------------------------------------------------------- |
41 ------------------------------------------------------------------- |
42 -- borrowed from base 4.0.0 --------------------------------------- |
42 -- borrowed from base 4.0.0 --------------------------------------- |
43 onException :: IO a -> IO b -> IO a -- |
43 onException :: IO a -> IO b -> IO a |
44 onException io what = io `catch` \e -> do what -- |
44 onException io what = io `Exception.catch` \e -> do what |
45 throw (e :: Exception) -- |
45 Exception.throw (e :: Exception) |
46 -- to be deleted -------------------------------------------------- |
46 -- to be deleted -------------------------------------------------- |
47 ------------------------------------------------------------------- |
47 ------------------------------------------------------------------- |
48 |
48 |
49 |
49 |
50 pipeDbConnectionLoop queries coreChan hIn hOut accountsCache = |
50 pipeDbConnectionLoop queries coreChan hIn hOut accountsCache = |