Fix HLint hints

ndmitchell · Aug 28, 2021 · b2691a1 · b2691a1
1 parent 9db3e03
commit b2691a1
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/Config/Yaml.hs b/src/Config/Yaml.hs
@@ -304,16 +304,15 @@ parseRestrict restrictType v = do
                 case (restrictBadIdents, restrictOnlyAllowedIdents) of
                     (Just badIdents, Nothing) -> ForbidIdents <$> parseArrayString badIdents
                     (Nothing, Just onlyIdents) -> OnlyIdents <$> parseArrayString onlyIdents
-                    (Nothing, Nothing) -> return NoRestrictIdents
+                    (Nothing, Nothing) -> pure NoRestrictIdents
                     _ -> parseFail v "The following options are mutually exclusive: badidents, only"
 
             restrictMessage <- parseFieldOpt "message" v >>= maybeParse parseString
-            allowFields v $ concat
-                [ ["name", "within", "message"]
-                , if restrictType == RestrictModule
+            allowFields v $
+                ["name", "within", "message"] ++
+                if restrictType == RestrictModule
                     then ["as", "badidents", "only"]
                     else []
-                ]
             pure Restrict{restrictDefault=True,..}
 
 parseWithin :: Val -> Parser [(String, String)] -- (module, decl)