From 90e8725f5b3d243e86f875eae9ee19e93d7d0ec3 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 9 Sep 2024 09:03:17 -0700 Subject: [PATCH] Tests: use 'drop 1' instead of partial function 'tail'. --- test/Tests/Readers/Markdown.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Tests/Readers/Markdown.hs b/test/Tests/Readers/Markdown.hs index d7a8b72df..7d7020e4b 100644 --- a/test/Tests/Readers/Markdown.hs +++ b/test/Tests/Readers/Markdown.hs @@ -210,14 +210,14 @@ tests = [ testGroup "inline code" <> [ "lists with newlines and indent in backticks" =: T.intercalate ("\n" <> T.replicate 4 " ") (zipWith (\i (_, lt, _) -> lt <> i) lis lsts) =?> let (_, _, f) = head lsts - in f [plain $ code $ T.intercalate (T.replicate 5 " ") $ head lis' : zipWith (\i (_, lt, _) -> lt <> i) (tail lis') (tail lsts)] + in f [plain $ code $ T.intercalate (T.replicate 5 " ") $ head lis' : zipWith (\i (_, lt, _) -> lt <> i) (drop 1 lis') (drop 1 lsts)] | lsts <- [ [i, j, k] | i <- lists, j <- lists, k <- lists] ] <> [ "lists with blank lines and indent in backticks" =: T.intercalate ("\n\n" <> T.replicate 4 " ") (zipWith (\i (_, lt, _) -> lt <> i) lis lsts) <> "\n" =?> let (_, _, f) = head lsts - in f . pure $ (para . text $ head lis) <> bldLsts para (tail lsts) (tail lis) + in f . pure $ (para . text $ head lis) <> bldLsts para (drop 1 lsts) (drop 1 lis) | lsts <- [ [i, j, k] | i <- lists, j <- lists, k <- lists] ] , testGroup "emph and strong"