wip

sol · Dec 11, 2022 · a8f0538 · a8f0538
1 parent 4cc002c
commit a8f0538
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Hpack/Yaml.hs b/src/Hpack/Yaml.hs
@@ -14,7 +14,7 @@ module Hpack.Yaml (
 -- tool that supports Hpack (e.g. @stack@ or @cabal2nix@).
 
   decodeYaml
-, decodeYamlWithParseException
+, decodeYamlWithParseError
 , ParseException
 , formatYamlParseError
 , formatWarning
@@ -30,10 +30,10 @@ import           Data.Aeson.Config.FromValue
 import           Data.Aeson.Config.Parser (fromAesonPath, formatPath)
 
 decodeYaml :: FilePath -> IO (Either String ([String], Value))
-decodeYaml file = first (formatYamlParseError file) <$> decodeYamlWithParseException file
+decodeYaml file = first (formatYamlParseError file) <$> decodeYamlWithParseError file
 
-decodeYamlWithParseException :: FilePath -> IO (Either ParseException ([String], Value))
-decodeYamlWithParseException file = do
+decodeYamlWithParseError :: FilePath -> IO (Either ParseException ([String], Value))
+decodeYamlWithParseError file = do
   result <- decodeFileWithWarnings file
   return $ fmap (first (map $ formatWarning file)) result