diff --git a/langfilter/Main.hs b/langfilter/Main.hs
index 73dd98b..f4ae468 100644
--- a/langfilter/Main.hs
+++ b/langfilter/Main.hs
@@ -72,7 +72,8 @@ makeQuotes para@(Para b) = fromMaybe para $ do
     inner <- split b
     return (BlockQuote [Para inner])
   where
-    isDelim str = str == "\"\"\"" || str == "““”" -- lol
+    isDelim str = Text.length str == 3 && Text.all isQuote str
+    isQuote c = c == '"' || c == '“' || c == '”'
 
     split (Str begin:SoftBreak:rest) = guard (isDelim begin) *> checkEnd rest
     split _                          = empty