1 files changed, 15 insertions, 4 deletions

diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs
index d0d2ef63..ad0f4c29 100644
--- a/Presence/ConfigFiles.hs
+++ b/Presence/ConfigFiles.hs
@@ -3,6 +3,7 @@ module ConfigFiles where
 
 import Data.ByteString.Lazy.Char8 as L
 import System.Posix.User
+import System.Posix.Files (fileExist)
 import System.FilePath
 import System.Directory
 import System.IO
@@ -11,7 +12,7 @@ import System.IO.Error
 import Control.Exception
 import Control.Monad
 import Control.DeepSeq
-import ByteStringOperators() -- For NFData instance
+import ByteStringOperators () -- For NFData instance
 
 type User = ByteString
 
@@ -34,15 +35,20 @@ createConfigFile tag path = do
     doesDirectoryExist dir >>= flip unless (do
             createDirectory dir 
         )
-    withFile path WriteMode $ \h -> 
+    withFile path WriteMode $ \h -> do
         L.hPutStrLn h tag
 
 addItem item tag path =
     let doit = do
          handle (\e -> when (isDoesNotExistError e) 
                        (createConfigFile tag path >> doit))
-           $ withFile path AppendMode $ \h ->
-               L.hPutStrLn h item
+           $ do exists <- fileExist path
+                if exists
+                  then withFile path AppendMode $ \h ->
+                         L.hPutStrLn h item
+                  else withFile path WriteMode $ \h -> do
+                         L.hPutStrLn h tag
+                         L.hPutStrLn h item
     in doit
 
 addBuddy :: User -> ByteString -> IO ()
@@ -53,6 +59,11 @@ addSubscriber :: User -> ByteString -> IO ()
 addSubscriber user subscriber =
     configPath user subscriberFile >>= addItem subscriber "<? subscribers ?>"
 
+addSolicited :: User -> ByteString -> IO ()
+addSolicited user solicited =
+    configPath user solicitedFile >>= addItem solicited "<? solicited ?>"
+
+
 getConfigList path = 
   handle (\e -> if isDoesNotExistError e then (return []) else throw e)
     $ withFile path ReadMode $