@@ -35,7 +35,7 @@ module Text.Pandoc.Lua (LuaException (..), pushPandocModule, runLuaFilter) where
3535import Control.Monad (mplus, unless, when, (>=>))
3636import Control.Monad.Trans (MonadIO (..))
3737import Data.Data (DataType, Data, toConstr, showConstr, dataTypeOf,
38− dataTypeConstrs, dataTypeName)
38+ dataTypeConstrs, dataTypeName, tyconUQname)
3939import Data.Foldable (foldrM)
4040import Data.Map (Map)
4141import Data.Maybe (isJust)
@@ -127,7 +127,7 @@ newtype LuaFilterFunction = LuaFilterFunction { functionIndex :: Int }
127127tryFilter :: (Data a, FromLuaStack a, ToLuaStack a) => FunctionMap -> a -> Lua a
128128tryFilter fnMap x =
129129 let filterFnName = showConstr (toConstr x)
130− catchAllName = dataTypeName (dataTypeOf x)
130+ catchAllName = tyconUQname $ dataTypeName (dataTypeOf x)
131131 in
132132 case Map.lookup filterFnName fnMap `mplus` Map.lookup catchAllName fnMap of
133133 Just fn -> runFilterFunction fn x