diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2017-07-20 10:00:34 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2017-07-20 10:05:14 +0200 |
| commit | 49f6fad5acd4d94b36e490ee333b521510311429 (patch) | |
| tree | db73fd02cd5838e5ff1914f7fe9bee393e2c95f0 /haddock-library | |
| parent | 24e750d68cce2ec15ca1d8660b67344d968a5434 (diff) | |
Avoid trivial use of LambdaCase
otherwise we can't test w/ e.g. GHC 7.4.2
Diffstat (limited to 'haddock-library')
| -rw-r--r-- | haddock-library/test/Documentation/Haddock/ParserSpec.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index 1169eb49..b63ece92 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings, FlexibleInstances #-} -{-# LANGUAGE LambdaCase #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Documentation.Haddock.ParserSpec (main, spec) where @@ -57,7 +56,7 @@ spec = do "e" `shouldParseTo` "e" it "allows to backslash-escape characters except \\r" $ do - property $ \case + property $ \y -> case y of '\r' -> "\\\r" `shouldParseTo` DocString "\\" x -> ['\\', x] `shouldParseTo` DocString [x] |