diff options
Diffstat (limited to 'Bustle/Monitor.hs')
| -rw-r--r-- | Bustle/Monitor.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Bustle/Monitor.hs b/Bustle/Monitor.hs index cb9d4ef..9bd4f50 100644 --- a/Bustle/Monitor.hs +++ b/Bustle/Monitor.hs @@ -44,6 +44,7 @@ import System.Glib.GObject import System.Glib.GError import System.Glib.Signals +import Bustle.GDBusMessage import Bustle.Types (Microseconds) -- Gtk2HS boilerplate @@ -104,8 +105,9 @@ messageLoggedHandler :: (Microseconds -> BS.ByteString -> IO ()) -> CLong -> Ptr CChar -> CUInt + -> GDBusMessage -> IO () -messageLoggedHandler user _obj sec usec blob blobLength = do +messageLoggedHandler user _obj sec usec blob blobLength _message = do blobBS <- BS.packCStringLen (blob, fromIntegral blobLength) let µsec = fromIntegral sec * (10 ^ (6 :: Int)) + fromIntegral usec failOnGError $ user µsec blobBS |