summaryrefslogtreecommitdiff
path: root/tests/Tests/Arbitrary.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Tests/Arbitrary.hs')
-rw-r--r--tests/Tests/Arbitrary.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs
index de07322fb..d792e1375 100644
--- a/tests/Tests/Arbitrary.hs
+++ b/tests/Tests/Arbitrary.hs
@@ -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