aboutsummaryrefslogtreecommitdiff
path: root/haddock-library/test/Documentation/Haddock
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2017-07-20 10:00:34 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2017-07-20 10:05:14 +0200
commit49f6fad5acd4d94b36e490ee333b521510311429 (patch)
treedb73fd02cd5838e5ff1914f7fe9bee393e2c95f0 /haddock-library/test/Documentation/Haddock
parent24e750d68cce2ec15ca1d8660b67344d968a5434 (diff)
Avoid trivial use of LambdaCase
otherwise we can't test w/ e.g. GHC 7.4.2
Diffstat (limited to 'haddock-library/test/Documentation/Haddock')
-rw-r--r--haddock-library/test/Documentation/Haddock/ParserSpec.hs3
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
"&#x65;" `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]