diff options
author | Artyom Kazak <yom@artyom.me> | 2017-04-15 21:01:50 +0300 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2017-04-15 20:01:50 +0200 |
commit | 1e49bebca63bb5237146bfbb6bfee7850dab0240 (patch) | |
tree | 7d3f88a148c13e5fa225c4b448615243637d557f | |
parent | 267cb3c727e3c7f565160dfe084aae12dddacc5a (diff) | |
download | stylish-haskell-1e49bebca63bb5237146bfbb6bfee7850dab0240.tar.gz |
Remove MagicHash from whitelisted extensions (#160)
Fixes #159.
-rw-r--r-- | lib/Language/Haskell/Stylish/Parse.hs | 1 | ||||
-rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lib/Language/Haskell/Stylish/Parse.hs b/lib/Language/Haskell/Stylish/Parse.hs index 596bccb..724ebe2 100644 --- a/lib/Language/Haskell/Stylish/Parse.hs +++ b/lib/Language/Haskell/Stylish/Parse.hs @@ -24,7 +24,6 @@ defaultExtensions = map H.EnableExtension [ H.GADTs , H.HereDocuments , H.KindSignatures - , H.MagicHash , H.NewQualifiedOperators , H.PatternGuards , H.StandaloneDeriving diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 3f2d4a7..9806be2 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -27,6 +27,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "StandalonDeriving extension" testStandaloneDeriving , testCase "UnicodeSyntax extension" testUnicodeSyntax , testCase "XmlSyntax regression" testXmlSyntaxRegression + , testCase "MagicHash regression" testMagicHashRegression ] -------------------------------------------------------------------------------- @@ -120,6 +121,11 @@ testXmlSyntaxRegression = assert $ isRight $ parseModule [] Nothing $ unlines [ "smaller a b = a <b" ] +testMagicHashRegression :: Assertion +testMagicHashRegression = assert $ isRight $ parseModule [] Nothing $ unlines + [ "xs = \"foo\"#|1#|'a'#|bar#|Nil" + ] + -------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True |