diff options
| author | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:28:53 -0500 |
|---|---|---|
| committer | Henry de Valence <hdevalence@hdevalence.ca> | 2013-12-19 20:28:53 -0500 |
| commit | c35f5ba42df094cef5f69a191315385a0a1e12b0 (patch) | |
| tree | 36fea6da6a2384c000d7238bdeb9d68ba1049551 /tests/Tests/Walk.hs | |
| parent | 0c5e7cf8cb4fe6959d7e89880e8925afe6625414 (diff) | |
| download | pandoc-c35f5ba42df094cef5f69a191315385a0a1e12b0.tar.gz | |
HLint: Remove lambdas.
Diffstat (limited to 'tests/Tests/Walk.hs')
| -rw-r--r-- | tests/Tests/Walk.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Walk.hs b/tests/Tests/Walk.hs index f6aa1beae..34350e28a 100644 --- a/tests/Tests/Walk.hs +++ b/tests/Tests/Walk.hs @@ -21,11 +21,11 @@ tests = [ testGroup "Walk" p_walk :: (Typeable a, Walkable a Pandoc) => (a -> a) -> Pandoc -> Bool -p_walk f = (\(d :: Pandoc) -> everywhere (mkT f) d == walk f d) +p_walk f d = everywhere (mkT f) d == walk f d p_query :: (Eq a, Typeable a1, Monoid a, Walkable a1 Pandoc) => (a1 -> a) -> Pandoc -> Bool -p_query f = (\(d :: Pandoc) -> everything mappend (mempty `mkQ` f) d == query f d) +p_query f d = everything mappend (mempty `mkQ` f) d == query f d inlineTrans :: Inline -> Inline inlineTrans (Str xs) = Str $ map toUpper xs |