diff options
Diffstat (limited to 'Presence/ConfigFiles.hs')
-rw-r--r-- | Presence/ConfigFiles.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs index ee0d5b85..f0e18f70 100644 --- a/Presence/ConfigFiles.hs +++ b/Presence/ConfigFiles.hs | |||
@@ -54,10 +54,12 @@ addSubscriber :: User -> ByteString -> IO () | |||
54 | addSubscriber user subscriber = | 54 | addSubscriber user subscriber = |
55 | subscriberPath user >>= addItem subscriber "<? subscribers ?>" | 55 | subscriberPath user >>= addItem subscriber "<? subscribers ?>" |
56 | 56 | ||
57 | getConfigList path = withFile path ReadMode $ | 57 | getConfigList path = |
58 | L.hGetContents | 58 | handle (\e -> if isDoesNotExistError e then (return []) else throw e) |
59 | >=> return . Prelude.tail . L.lines | 59 | $ withFile path ReadMode $ |
60 | >=> (\a -> seq (rnf a) (return a)) | 60 | L.hGetContents |
61 | >=> return . Prelude.tail . L.lines | ||
62 | >=> (\a -> seq (rnf a) (return a)) | ||
61 | 63 | ||
62 | getBuddies :: User -> IO [ByteString] | 64 | getBuddies :: User -> IO [ByteString] |
63 | getBuddies user = buddyPath user >>= getConfigList | 65 | getBuddies user = buddyPath user >>= getConfigList |