diff --git a/src/QBar/Util.hs b/src/QBar/Util.hs
index 8ad754697c45d5ea8ea0e68e985369e0da5bc4a7..0ca48dbdd19cd53fa32039956f6a13e77861e71c 100644
--- a/src/QBar/Util.hs
+++ b/src/QBar/Util.hs
@@ -17,8 +17,8 @@ signalPipe event = signalPipe'
       liftIO $ Event.signal event
       signalPipe'
 
-randomIdentifier :: IO Text
-randomIdentifier = T.pack <$> replicateM 8 randomCharacter
+randomIdentifier :: MonadIO m => m Text
+randomIdentifier = liftIO $ T.pack <$> replicateM 8 randomCharacter
   where
     randomCharacter :: IO Char
     randomCharacter = do