lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-18 05:25:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated Arbitrary instance for link attribute

Browse Source
This commit is contained in:
mb21
2015-08-07 12:38:37 +02:00
parent a010b83a75
commit fe2907ca72
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/Tests/Arbitrary.hs
+3 -2
View File
@@ -56,10 +56,11 @@ arbInline n = frequency $ [ (60, liftM Str realString)
, (10, do x1 <- arbitrary
x2 <- realString
return $ Math x1 x2)
, (10, do x1 <- arbInlines (n-1)
, (10, do x0 <- arbAttr
x1 <- arbInlines (n-1)
x3 <- realString
x2 <- liftM escapeURI realString
return $ Link x1 (x2,x3))
return $ Link x0 x1 (x2,x3))
, (10, do x0 <- arbAttr
x1 <- arbInlines (n-1)
x3 <- realString