1 files changed, 2 insertions, 3 deletions

diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs
index 6354d841..5682ea94 100644
--- a/Presence/ConfigFiles.hs
+++ b/Presence/ConfigFiles.hs
@@ -13,7 +13,6 @@ import Control.Exception
 import Control.Monad
 import Control.DeepSeq
 import ByteStringOperators () -- For NFData instance
-import ControlMaybe
 import Data.List (partition)
 import Data.Maybe (catMaybes,isJust)
 
@@ -100,12 +99,12 @@ modifyFile (tag,file) user profile test appending = configPath user profile file
                     withFile path WriteMode $ \h -> do
                         L.hPutStrLn h tag
                         forM_ (catMaybes keepers) (L.hPutStrLn h)
-                        withJust appending (L.hPutStrLn h)
+                        forM_ appending (L.hPutStrLn h)
                     return . not . Prelude.null $ deleted
                   else do
                     withFile path WriteMode $ \h -> do
                         L.hPutStrLn h tag
-                        withJust appending (L.hPutStrLn h)
+                        forM_ appending (L.hPutStrLn h)
                     return False
 
 modifySolicited, modifyBuddies, modifyOthers, modifyPending, modifySubscribers