pandoc-crossref-0.1.1.0: src/Util/Util.hs

module Util.Util where

import Text.Pandoc.Definition

isFormat :: String -> Maybe Format -> Bool
isFormat fmt (Just (Format f)) = takeWhile (`notElem` "+-") f == fmt
isFormat _ Nothing = False