X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=600647f7fa37fafff795d9dfee1721cb0ca43d9c;hp=3018e9ecdae56bc913b319a843804b0ef2f810b8;hb=62b4e5715d31747ffd526c54f6697736dcbf163e;hpb=90c763c607d9eceb718b2229bb420134c9931544

diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs
index 3018e9e..600647f 100644
--- a/src/OptionalConfiguration.hs
+++ b/src/OptionalConfiguration.hs
@@ -79,9 +79,10 @@ instance Monoid OptionalCfg where
       merge (Just _) (Just y) = Just y
 
       -- Use only the latter usernames if there are any.
-      all_usernames = if (null (usernames cfg2))
-                      then (usernames cfg1)
-                      else (usernames cfg2)
+      all_usernames =
+        usernames $ if (null (usernames cfg2))
+                    then cfg1
+                    else cfg2
 
 instance DCT.Configured [String] where
   convert (DCT.List xs) =