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.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 =