new less ugly makeQuotes.isDelim

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