justhsu
/
justin-site
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cosmetic.

This commit is contained in:
Justin Hsu 2016-02-18 23:43:24 -05:00
parent b560adefbc
commit b1434d6e0c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
HakyllBibTex.hs
View File

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