From 62b4e5715d31747ffd526c54f6697736dcbf163e Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 14 Jul 2013 22:02:41 -0400 Subject: [PATCH] Fix hlint suggestion. --- src/OptionalConfiguration.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) = -- 2.44.2