diff options
author | Brandon Chinn <brandon@leapyear.io> | 2019-01-02 02:53:05 -0800 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2019-01-02 11:53:05 +0100 |
commit | 3da91c53431af1b43dda27316588502ab113f7ec (patch) | |
tree | dc653f073482f7e16b9200446928cc100613006d /lib | |
parent | ea534a99e7f4684906ae4aff7328673b1ec4e3b5 (diff) | |
download | stylish-haskell-3da91c53431af1b43dda27316588502ab113f7ec.tar.gz |
Update bounds to support >= lts-2.5 (#227)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Language/Haskell/Stylish/Config.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Language/Haskell/Stylish/Config.hs b/lib/Language/Haskell/Stylish/Config.hs index 19588b7..ad30498 100644 --- a/lib/Language/Haskell/Stylish/Config.hs +++ b/lib/Language/Haskell/Stylish/Config.hs @@ -22,7 +22,8 @@ import Data.List (inits, import Data.Map (Map) import qualified Data.Map as M import Data.Maybe (fromMaybe) -import Data.Yaml (decodeEither) +import Data.Yaml (decodeEither', + prettyPrintParseException) import System.Directory import System.FilePath (joinPath, splitPath, @@ -103,9 +104,9 @@ loadConfig verbose userSpecified = do mbFp <- configFilePath verbose userSpecified verbose $ "Loading configuration at " ++ fromMaybe "<embedded>" mbFp bytes <- maybe (return defaultConfigBytes) B.readFile mbFp - case decodeEither bytes of + case decodeEither' bytes of Left err -> error $ - "Language.Haskell.Stylish.Config.loadConfig: " ++ err + "Language.Haskell.Stylish.Config.loadConfig: " ++ prettyPrintParseException err Right config -> return config |