From 53964297b5ffa72dab0d30f2e2964284a9c8ccb5 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 29 Nov 2007 08:09:10 +0000 Subject: Modified refsMatch for new Math block element. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1113 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Shared.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Text/Pandoc') diff --git a/Text/Pandoc/Shared.hs b/Text/Pandoc/Shared.hs index 626679025..abd313672 100644 --- a/Text/Pandoc/Shared.hs +++ b/Text/Pandoc/Shared.hs @@ -636,6 +636,8 @@ refsMatch ((Quoted t x):restx) ((Quoted u y):resty) = t == u && refsMatch x y && refsMatch restx resty refsMatch ((Code x):restx) ((Code y):resty) = ((map toLower x) == (map toLower y)) && refsMatch restx resty +refsMatch ((Math x):restx) ((Math y):resty) = + ((map toLower x) == (map toLower y)) && refsMatch restx resty refsMatch ((TeX x):restx) ((TeX y):resty) = ((map toLower x) == (map toLower y)) && refsMatch restx resty refsMatch ((HtmlInline x):restx) ((HtmlInline y):resty) = -- cgit v1.2.3