diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 14:18:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 14:18:06 -0700 |
| commit | f270dd9b18de69e87198216f13943b2ceefea8f8 (patch) | |
| tree | 63ac721a3a2c8ec2192eabc650bd0aff9ad1428b /src/Text/Pandoc/Writers/Math.hs | |
| parent | e45f2d1e9faa7835f01a9cc345f11b30c2377370 (diff) | |
hlint suggestions.
Diffstat (limited to 'src/Text/Pandoc/Writers/Math.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Math.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Math.hs b/src/Text/Pandoc/Writers/Math.hs index 61358378b..477f5a0b1 100644 --- a/src/Text/Pandoc/Writers/Math.hs +++ b/src/Text/Pandoc/Writers/Math.hs @@ -22,7 +22,7 @@ texMathToInlines mt inp = do res <- convertMath writePandoc mt inp case res of Right (Just ils) -> return ils - Right (Nothing) -> do + Right Nothing -> do report $ CouldNotConvertTeXMath inp "" return [mkFallback mt inp] Left il -> return [il] @@ -39,7 +39,7 @@ mkFallback mt str = Str (delim ++ str ++ delim) convertMath :: PandocMonad m => (DisplayType -> [Exp] -> a) -> MathType -> String -> m (Either Inline a) -convertMath writer mt str = do +convertMath writer mt str = case writer dt <$> readTeX str of Right r -> return (Right r) Left e -> do |