From de55a20fccc1acb9a3a0171152f3428ecdf2a755 Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Tue, 25 Feb 2020 23:47:36 +0100
Subject: [PATCH] Change 'randomIdentifier' to use MonadIO
---
src/QBar/Util.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/QBar/Util.hs b/src/QBar/Util.hs
index 8ad7546..0ca48db 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
--
GitLab