From 3237c127e01013d62777ebfa00cab49554c835d6 Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Mon, 3 Jun 2024 04:07:09 +0200 Subject: [PATCH] remove laantas-script flags in glosses --- langfilter/Glosses.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/langfilter/Glosses.hs b/langfilter/Glosses.hs index 2250b2b..4890ebb 100644 --- a/langfilter/Glosses.hs +++ b/langfilter/Glosses.hs @@ -81,6 +81,7 @@ splitInlines is = filter (not . null) $ go is where fromList is1 : splitInlines (dropWhile (== Space) is') underlines :: [Inline] -> [Inline] -underlines = concatMap \case - Str txt -> Spans.underlines txt - i -> [i] +underlines = concatMap underlineStr . takeWhile (/= Str "|") where + underlineStr = \case + Str txt -> Spans.underlines txt + i -> [i]