@@ -56,10 +56,11 @@ arbInline n = frequency $ [ (60, liftM Str realString)
5656 , (10, do x1 <- arbitrary
5757 x2 <- realString
5858 return $ Math x1 x2)
59− , (10, do x1 <- arbInlines (n-1)
59+ , (10, do x0 <- arbAttr
60+ x1 <- arbInlines (n-1)
6061 x3 <- realString
6162 x2 <- liftM escapeURI realString
62− return $ Link x1 (x2,x3))
63+ return $ Link x0 x1 (x2,x3))
6364 , (10, do x0 <- arbAttr
6465 x1 <- arbInlines (n-1)
6566 x3 <- realString