Fixup legacy Ignore parsing

restyled-io · Oct 18, 2024 · 0c6d7b9 · 0c6d7b9
1 parent ef2384c
commit 0c6d7b9
Showing 1 changed file with 12 additions and 24 deletions.
diff --git a/src/Restyler/Config/Ignore.hs b/src/Restyler/Config/Ignore.hs
@@ -55,28 +55,16 @@ newIgnoresParser =
 
 oldIgnoresParsers :: [Parser Ignores]
 oldIgnoresParsers =
-  [ Ignores
-      <$> setting
-        [ help ""
-        , conf "ignore_authors"
-        , hidden
-        ]
-      <*> pure []
-      <*> pure []
-  , Ignores
-      <$> setting
-        [ help ""
-        , conf "ignore_branches"
-        , hidden
-        ]
-      <*> pure []
-      <*> pure []
-  , Ignores
-      <$> setting
-        [ help ""
-        , conf "ignore_labels"
-        , hidden
-        ]
-      <*> pure []
-      <*> pure []
+  [ Ignores <$> hiddenIgnoreParser "ignore_authors" <*> pure [] <*> pure []
+  , Ignores [] <$> hiddenIgnoreParser "ignore_branches" <*> pure []
+  , Ignores [] [] <$> hiddenIgnoreParser "ignore_labels"
   ]
+
+hiddenIgnoreParser :: String -> Parser [Glob Text]
+hiddenIgnoreParser key =
+  setting
+    [ help ""
+    , conf key
+    , hidden
+    ]
+    <|> pure []