diff --git a/test/PandocSpec.hs b/test/PandocSpec.hs index 23e1eb251..354071840 100644 --- a/test/PandocSpec.hs +++ b/test/PandocSpec.hs @@ -43,8 +43,8 @@ instance Arbitrary ArbitraryMeta where spec :: Spec spec = do + let mlist = Map.toAscList . unMeta {- TODO - let mlist = Map.toAscList . unMeta describe "applyMetas" $ do it "should actually set values" $ do (ml, abMetaOriginal, blocks) <- generate arbitrary