backward compat fixes

Author: larskuhtz

src/Configuration/Utils.hs

@@ -280,19 +280,19 @@ programInfo
         -- ^ default configuration
     → ProgramInfo a
 programInfo desc parser defaultConfig =
-    programInfoValidate desc parser defaultConfig $ return
+    programInfoValidate desc parser defaultConfig $ const (return ())
 
 -- | Smart constructor for 'ProgramInfo'.
 --
 -- 'piHelpHeader' and 'piHelpFooter' are set to 'Nothing'.
 --
-programInfoValidate
+programInfoValidate'
     ∷ String
     → MParser a
     → a
     → ConfigValidation' a f r
     → ProgramInfoValidate' a f r
-programInfoValidate desc parser defaultConfig valFunc = ProgramInfo
+programInfoValidate' desc parser defaultConfig valFunc = ProgramInfo
     { _piDescription = desc
     , _piHelpHeader = Nothing
     , _piHelpFooter = Nothing
@@ -302,6 +302,19 @@ programInfoValidate desc parser defaultConfig valFunc = ProgramInfo
     , _piConfigurationFiles = []
     }
 
+-- | Smart constructor for 'ProgramInfo'.
+--
+-- 'piHelpHeader' and 'piHelpFooter' are set to 'Nothing'.
+--
+programInfoValidate
+    ∷ String
+    → MParser a
+    → a
+    → ConfigValidation a f
+    → ProgramInfoValidate a f
+programInfoValidate desc parser defaultConfig valFunc =
+    programInfoValidate' desc parser defaultConfig $ \c -> valFunc c >> return c
+
 -- -------------------------------------------------------------------------- --
 -- AppConfiguration
 
@@ -718,7 +731,7 @@ parseConfiguration
         )
     ⇒ T.Text
         -- ^ program name (used in error messages)
-    → ProgramInfoValidate a f
+    → ProgramInfoValidate' a f r
         -- ^ program info value; use 'programInfo' to construct a value of this
         -- type
     → [String]