Cosmetic.
This commit is contained in:
+1
-4
@@ -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 =
|
||||
|
||||
Reference in New Issue
Block a user