diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-01-16 13:21:29 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-01-16 13:21:29 +0100 |
commit | dfcf2ab20220a78f1ae997b8df9dcb03c6e2c009 (patch) | |
tree | 0cb148588c18d1eab5556131d76f17dbcd0f9c93 /src | |
parent | 57e1fbfd131c5ee97c2967940deb6e0db97208fc (diff) | |
download | stylish-haskell-dfcf2ab20220a78f1ae997b8df9dcb03c6e2c009.tar.gz |
Fix code that was confusing GHC 7.10
Diffstat (limited to 'src')
-rw-r--r-- | src/Language/Haskell/Stylish/Config.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Language/Haskell/Stylish/Config.hs b/src/Language/Haskell/Stylish/Config.hs index 2dd79a8..0304ae5 100644 --- a/src/Language/Haskell/Stylish/Config.hs +++ b/src/Language/Haskell/Stylish/Config.hs @@ -120,8 +120,9 @@ parseConfig (A.Object o) = do <*> (o A..:? "language_extensions" A..!= []) -- Then fill in the steps based on the partial config we already have - steps <- (o A..: "steps" >>= fmap concat . mapM (parseSteps config)) - return config {configSteps = steps} + stepValues <- o A..: "steps" :: A.Parser [A.Value] + steps <- mapM (parseSteps config) stepValues + return config {configSteps = concat steps} parseConfig _ = mzero |