git.iko.soy/typeable/pandoc
on master help sign in
HLint: Remove lambdas.
commitc35f5ba42df094cef5f69a191315385a0a1e12b0 authorHenry de Valence <hdevalence@hdevalence.ca> dateThu 19 Dec 2013, 20:28 (13 years ago) parent0c5e7cf
2 files changed+3−4
compare with master
unifiedsplit
src/Text/Pandoc/Writers/Shared.hs+1−2 tests/Tests/Walk.hs+2−2
src/Text/Pandoc/Writers/Shared.hs+1−2
@@ -65,8 +65,7 @@ metaToJSON opts blockWriter inlineWriter (Meta metamap)
6565 renderedMap <- Traversable.mapM
6666 (metaValueToJSON blockWriter inlineWriter)
6767 metamap
68− return $ M.foldWithKey (\key val obj -> defField key val obj)
69− baseContext renderedMap
68+ return $ M.foldWithKey defField baseContext renderedMap
7069 | otherwise = return (Object H.empty)
7170
7271metaValueToJSON :: Monad m
tests/Tests/Walk.hs+2−2
@@ -21,11 +21,11 @@ tests = [ testGroup "Walk"
2121
2222p_walk :: (Typeable a, Walkable a Pandoc)
2323 => (a -> a) -> Pandoc -> Bool
24−p_walk f = (\(d :: Pandoc) -> everywhere (mkT f) d == walk f d)
24+p_walk f d = everywhere (mkT f) d == walk f d
2525
2626p_query :: (Eq a, Typeable a1, Monoid a, Walkable a1 Pandoc)
2727 => (a1 -> a) -> Pandoc -> Bool
28−p_query f = (\(d :: Pandoc) -> everything mappend (mempty `mkQ` f) d == query f d)
28+p_query f d = everything mappend (mempty `mkQ` f) d == query f d
2929
3030inlineTrans :: Inline -> Inline
3131inlineTrans (Str xs) = Str $ map toUpper xs