@@ -49,7 +49,7 @@ arbInline n = frequency $ [ (60, liftM Str realString)
49 , (10, liftM Strikeout $ arbInlines (n-1))
49 , (10, liftM Strikeout $ arbInlines (n-1))
50 , (10, liftM Superscript $ arbInlines (n-1))
50 , (10, liftM Superscript $ arbInlines (n-1))
51 , (10, liftM Subscript $ arbInlines (n-1))
51 , (10, liftM Subscript $ arbInlines (n-1))
52−-- , (10, liftM SmallCaps $ arbInlines (n-1))
52+ , (10, liftM SmallCaps $ arbInlines (n-1))
53 , (10, do x1 <- arbitrary
53 , (10, do x1 <- arbitrary
54 x2 <- arbInlines (n-1)
54 x2 <- arbInlines (n-1)
55 return $ Quoted x1 x2)
55 return $ Quoted x1 x2)