diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-04-29 18:14:39 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-04-29 18:14:39 -0700 |
| commit | b6ae5d5e99a1575fcba3512b3a82ff77773a80ec (patch) | |
| tree | 0de263882239682f89f200dcb17883d0bef04977 | |
| parent | d6ef7a465e0d53f939680fca465d7daec17c7cb9 (diff) | |
| download | pandoc-b6ae5d5e99a1575fcba3512b3a82ff77773a80ec.tar.gz | |
ADded SmallCaps to Arbitrary instance.
| -rw-r--r-- | tests/Tests/Arbitrary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Tests/Arbitrary.hs b/tests/Tests/Arbitrary.hs index 31c0cb46a..82346d65f 100644 --- a/tests/Tests/Arbitrary.hs +++ b/tests/Tests/Arbitrary.hs @@ -49,7 +49,7 @@ arbInline n = frequency $ [ (60, liftM Str realString) , (10, liftM Strikeout $ arbInlines (n-1)) , (10, liftM Superscript $ arbInlines (n-1)) , (10, liftM Subscript $ arbInlines (n-1)) --- , (10, liftM SmallCaps $ arbInlines (n-1)) + , (10, liftM SmallCaps $ arbInlines (n-1)) , (10, do x1 <- arbitrary x2 <- arbInlines (n-1) return $ Quoted x1 x2) |