diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 15:45:34 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 15:45:34 -0800 |
commit | a579e2c89289b97fa4083c2c0e2299da9d44e9e0 (patch) | |
tree | 11976af7a06a442133f58baf70cff7c1445ec9f8 /src/Tests/Arbitrary.hs | |
parent | 8838f473a825747fc00f61cbddfe3732fe3a9b6f (diff) |
Replaced Apostrophe, Ellipses, EmDash, EnDash w/ unicode strings.
Diffstat (limited to 'src/Tests/Arbitrary.hs')
-rw-r--r-- | src/Tests/Arbitrary.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Tests/Arbitrary.hs b/src/Tests/Arbitrary.hs index 986e3e4d5..9d65e1f1f 100644 --- a/src/Tests/Arbitrary.hs +++ b/src/Tests/Arbitrary.hs @@ -41,10 +41,6 @@ arbInline :: Int -> Gen Inline arbInline n = frequency $ [ (60, liftM Str realString) , (60, return Space) , (10, liftM2 Code arbAttr realString) - , (5, return EmDash) - , (5, return EnDash) - , (5, return Apostrophe) - , (5, return Ellipses) , (5, elements [ RawInline "html" "<a id=\"eek\">" , RawInline "latex" "\\my{command}" ]) ] ++ [ x | x <- nesters, n > 1] |