diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-08-28 23:18:26 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-08-28 23:18:26 +0200 |
commit | 59a2b0669c278de6947d39b1922797edca948684 (patch) | |
tree | 1d51ba29ceacc024f5392bc9acaf749f7cd27e1c | |
parent | 2c96bb19a8deabd566dcc6d29bf83b30950af94b (diff) | |
download | stylish-haskell-59a2b0669c278de6947d39b1922797edca948684.tar.gz |
Remove XmlSyntax from whitelisted extensions
-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 d1e10b4..596bccb 100644 --- a/lib/Language/Haskell/Stylish/Parse.hs +++ b/lib/Language/Haskell/Stylish/Parse.hs @@ -29,7 +29,6 @@ defaultExtensions = map H.EnableExtension , H.PatternGuards , H.StandaloneDeriving , H.UnicodeSyntax - , H.XmlSyntax ] diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 4d3400c..3f2d4a7 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -26,6 +26,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "KindSignatures extension" testKindSignatures , testCase "StandalonDeriving extension" testStandaloneDeriving , testCase "UnicodeSyntax extension" testUnicodeSyntax + , testCase "XmlSyntax regression" testXmlSyntaxRegression ] -------------------------------------------------------------------------------- @@ -114,6 +115,11 @@ testUnicodeSyntax = assert $ isRight $ parseModule [] Nothing $ unlines , "monadic = id" ] +testXmlSyntaxRegression :: Assertion +testXmlSyntaxRegression = assert $ isRight $ parseModule [] Nothing $ unlines + [ "smaller a b = a <b" + ] + -------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True |