From cd2e1323ef62574f0879e789457248c68ee46326 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 11 Apr 2026 17:52:30 +0200
Subject: Parse tags in test preamble

---
 src/Parser/Core.hs | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'src/Parser')

diff --git a/src/Parser/Core.hs b/src/Parser/Core.hs
index 786fb2e..562923d 100644
--- a/src/Parser/Core.hs
+++ b/src/Parser/Core.hs
@@ -250,15 +250,6 @@ localState inner = do
 toplevel :: (a -> b) -> TestParser a -> TestParser b
 toplevel f = return . f <=< L.nonIndented scn
 
-block :: (a -> [b] -> TestParser c) -> TestParser a -> TestParser b -> TestParser c
-block merge header item = L.indentBlock scn $ do
-    h <- header
-    choice
-        [ do symbol ":"
-             return $ L.IndentSome Nothing (merge h) item
-        , L.IndentNone <$> merge h []
-        ]
-
 listOf :: TestParser a -> TestParser [a]
 listOf item = do
     x <- item
-- 
cgit v1.2.3