equal
deleted
inserted
replaced
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 `Exception.catch` \e -> do what |
44 onException io what = io `Exception.catch` \e -> do |
45 Exception.throw (e :: Exception) |
45 what |
|
46 Exception.throw (e :: Exception.Exception) |
46 -- to be deleted -------------------------------------------------- |
47 -- to be deleted -------------------------------------------------- |
47 ------------------------------------------------------------------- |
48 ------------------------------------------------------------------- |
48 |
49 |
49 |
50 |
50 pipeDbConnectionLoop queries coreChan hIn hOut accountsCache = |
51 pipeDbConnectionLoop queries coreChan hIn hOut accountsCache = |