@@ -2,7 +2,7 @@
3-----------------------------------------------------------------------------
3-----------------------------------------------------------------------------
5−-- Module : Database.HDBC.PostgreSQL.Notification
5+-- Module : Database.PostgreSQL.Simple.Notification
6-- Copyright : (c) 2011 Leon P Smith
6-- Copyright : (c) 2011 Leon P Smith
7-- License : BSD3
7-- License : BSD3
@@ -57,6 +57,9 @@ getNotification conn = do
57 -- 3. and if we raise it ourself
57 -- 3. and if we raise it ourself
58 -- If 1 happens, then it doesn't matter if the MVar is locked or not,
58 -- If 1 happens, then it doesn't matter if the MVar is locked or not,
59 -- and if 2 or 3 happens then the connection should be unlocked.
59 -- and if 2 or 3 happens then the connection should be unlocked.
61+ -- Note, however, that this function is not safe from asynchronous
62+ -- exceptions, which probably ought to be fixed.
60 loop conn c = do
63 loop conn c = do
61 mmsg <- PQ.notifies c
64 mmsg <- PQ.notifies c
62 case mmsg of
65 case mmsg of