diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-09-08 19:18:18 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-09-08 19:18:18 +0200 |
| commit | 5553fe2a4d1fe1b71592b00ab959ac94c216d96c (patch) | |
| tree | 73c61ecf6d5c8989ffb4a3e326da4ac31e679b99 /src/Hakyll/Web/Pandoc/Biblio.hs | |
| parent | f1c21c79f5f40cb41c227f788ecce007001c2890 (diff) | |
| parent | 3008142e03a0fb4f2cfa82ad9d81990d54d35e01 (diff) | |
| download | hakyll-5553fe2a4d1fe1b71592b00ab959ac94c216d96c.tar.gz | |
Merge pull request #296 from MaxDaten/feature/binary-pandoc-csl
added binary instances, fix #174
Diffstat (limited to 'src/Hakyll/Web/Pandoc/Biblio.hs')
| -rw-r--r-- | src/Hakyll/Web/Pandoc/Biblio.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Hakyll/Web/Pandoc/Biblio.hs b/src/Hakyll/Web/Pandoc/Biblio.hs index 6c92f28..c8f075d 100644 --- a/src/Hakyll/Web/Pandoc/Biblio.hs +++ b/src/Hakyll/Web/Pandoc/Biblio.hs @@ -21,6 +21,7 @@ module Hakyll.Web.Pandoc.Biblio -------------------------------------------------------------------------------- import Control.Applicative ((<$>)) +import Control.Monad (replicateM) import Data.Binary (Binary (..)) import Data.Typeable (Typeable) import qualified Text.CSL as CSL @@ -33,6 +34,7 @@ import Hakyll.Core.Identifier import Hakyll.Core.Item import Hakyll.Core.Writable import Hakyll.Web.Pandoc +import Hakyll.Web.Pandoc.Binary () -------------------------------------------------------------------------------- @@ -65,8 +67,10 @@ newtype Biblio = Biblio [CSL.Reference] -------------------------------------------------------------------------------- instance Binary Biblio where -- Ugly. - get = Biblio . read <$> get - put (Biblio rs) = put $ show rs + get = do + len <- get + Biblio <$> replicateM len get + put (Biblio rs) = put (length rs) >> mapM_ put rs -------------------------------------------------------------------------------- |