Require texmath >= 0.3, adjusted for new elements.

This commit is contained in:
John MacFarlane 2010-07-22 15:06:46 -07:00
parent 4c88ecaeca
commit 2253c8ef65
2 changed files with 4 additions and 1 deletions

View file

@ -154,7 +154,7 @@ Library
process >= 1, directory >= 1,
bytestring >= 0.9, zip-archive >= 0.1.1.4,
utf8-string >= 0.3, old-time >= 1,
HTTP >= 4000.0.5, texmath, xml >= 1.3.5 && < 1.4,
HTTP >= 4000.0.5, texmath >= 0.3, xml >= 1.3.5 && < 1.4,
random, extensible-exceptions
if impl(ghc >= 6.10)
Build-depends: base >= 4 && < 5, syb

View file

@ -86,6 +86,9 @@ expToInlines (ESubsup x y z) = do
y' <- expToInlines y
z' <- expToInlines z
return $ x' ++ [Subscript y'] ++ [Superscript z']
expToInlines (EDown x y) = expToInlines (ESub x y)
expToInlines (EUp x y) = expToInlines (ESuper x y)
expToInlines (EDownup x y z) = expToInlines (ESubsup x y z)
expToInlines (EText _ x) = Just [Emph [Str x]]
expToInlines _ = Nothing