From 3ae98347e7ad3e410974c4f6bac1ccaf56daa280 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 2 Oct 2023 23:08:07 +0200
Subject: don't show full bodies in list

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 126caab..50ac0fd 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -126,7 +126,7 @@ showMatches treeGrepperResult =
 
 listMatches :: TreeGrepperResult -> IO ()
 listMatches treeGrepperResult =
-  mapM_ (putStrLn . (.text)) $ treeGrepperResult.matches
+  mapM_ (putStrLn . unlines . take 1 . lines . (.text)) $ treeGrepperResult.matches
 
 data UnknownFileExtension = UnknownFileExtension
   { extension :: String
-- 
cgit v1.2.3