diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-06-18 10:43:57 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-06-18 10:43:57 -0700 |
commit | e3f52bff799e811d8b8a411be091a74979edc5fb (patch) | |
tree | 60edbb1e401047c196751c8c409bf05031d0584b /haddock-library/src | |
parent | dd3fee863579c88e49aa2b955cbc58e3c094ae4d (diff) |
Removed reliance on LambdaCase (which breaks build with ghc 7.4).
Diffstat (limited to 'haddock-library/src')
-rw-r--r-- | haddock-library/src/Documentation/Haddock/Parser.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Parser.hs b/haddock-library/src/Documentation/Haddock/Parser.hs index c84217b7..860271e1 100644 --- a/haddock-library/src/Documentation/Haddock/Parser.hs +++ b/haddock-library/src/Documentation/Haddock/Parser.hs @@ -3,7 +3,6 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE IncoherentInstances #-} -{-# LANGUAGE LambdaCase #-} -- | -- Module : Documentation.Haddock.Parser -- Copyright : (c) Mateusz Kowalczyk 2013-2014, @@ -431,8 +430,9 @@ codeblock = -- and we lose information about whether the last line belongs to @ or to -- text which we need to decide whether we actually want to be dropping -- anything at all. - splitByNl = unfoldr (\case '\n':s -> Just (span (/= '\n') s) - _ -> Nothing) + splitByNl = unfoldr (\x -> case x of + '\n':s -> Just (span (/= '\n') s) + _ -> Nothing) . ('\n' :) dropSpace "" = Just "" |