Work toward sending outgoing messages to remote peers

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 ()
 addSubscriber user subscriber =
     subscriberPath user >>= addItem subscriber "<? subscribers ?>"
 
-getConfigList path = withFile path ReadMode $
-    L.hGetContents 
-    >=> return . Prelude.tail . L.lines 
-    >=> (\a -> seq (rnf a) (return a))
+getConfigList path = 
+  handle (\e -> if isDoesNotExistError e then (return []) else throw e)
+    $ withFile path ReadMode $
+        L.hGetContents 
+        >=> return . Prelude.tail . L.lines 
+        >=> (\a -> seq (rnf a) (return a))
 
 getBuddies :: User -> IO [ByteString]
 getBuddies user = buddyPath user >>= getConfigList