diff --git a/HakyllBibTex.hs b/HakyllBibTex.hs index 671083c..9543a71 100644 --- a/HakyllBibTex.hs +++ b/HakyllBibTex.hs @@ -24,12 +24,10 @@ import qualified Bibtex as B import qualified Text.Pandoc as Pandoc import qualified Text.Parsec as Parsec - -------------------------------------------------------------------------------- newtype BibEntry = BibEntry B.Item deriving (Typeable) - -------------------------------------------------------------------------------- instance Binary BibEntry where put (BibEntry t) = do @@ -39,7 +37,6 @@ instance Binary BibEntry where get = BibEntry <$> (B.Item <$> get <*> get <*> get) - -------------------------------------------------------------------------------- bibEntryContext :: Context BibEntry bibEntryContext = Context $ \key _ item -> @@ -121,7 +118,7 @@ expandMonth mon = case mon of -- Inefficient... trimSpace :: String -> String trimSpace = f . f - where f = reverse . dropWhile isSpace + where f = reverse . dropWhile isSpace -------------------------------------------------------------------------------- latexToHtml tex =