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]