diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-08-05 12:20:42 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-08-05 12:20:42 +0200 |
| commit | 9b0822bc65f9d702f9591ad339a8384ac23c8537 (patch) | |
| tree | 5b7e2bab89cdb7a997d6fc2f418992a8dc6762cc /tests | |
| parent | 1a3612fe5e4ccce089497c46874acbbf53573b5d (diff) | |
| download | stylish-haskell-9b0822bc65f9d702f9591ad339a8384ac23c8537.tar.gz | |
Take Haskell2010 extension into account
Closes #36
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index cd026fd..718c7f6 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -20,6 +20,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" [ testCase "UTF-8 Byte Order Mark" testBom , testCase "Extra extensions" testExtraExtensions , testCase "Multiline CPP" testMultilineCpp + , testCase "Haskell2010 extension" testHaskell2010 ] @@ -49,6 +50,15 @@ testMultilineCpp = assert $ isRight $ parseModule [] Nothing $ unlines -------------------------------------------------------------------------------- +testHaskell2010 :: Assertion +testHaskell2010 = assert $ isRight $ parseModule [] Nothing $ unlines + [ "{-# LANGUAGE Haskell2010 #-}" + , "module X where" + , "foo x | Just y <- x = y" + ] + + +-------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True isRight _ = False |