summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormb21 <mb21@users.noreply.github.com>2015-07-26 18:31:38 +0200
committermb21 <mb21@users.noreply.github.com>2015-08-07 12:38:37 +0200
commitfe2907ca72043b40ea9776cb4706557cfbf22b56 (patch)
tree6677d2713e8f8d6a89032ffa962bd659410f611d
parenta010b83a7542d1324bde3d248c24faae9e681dbd (diff)
Updated Arbitrary instance for link attribute
-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