Adding templates and cleaning up

1 files changed, 9 insertions, 7 deletions

diff --git a/src/Hakyll/TeX/BibTeX.hs b/src/Hakyll/TeX/BibTeX.hs
index 434ca54..ddf9166 100644
--- a/src/Hakyll/TeX/BibTeX.hs
+++ b/src/Hakyll/TeX/BibTeX.hs
@@ -2,6 +2,7 @@
 module Hakyll.TeX.BibTeX
     ( bibtexCompiler
     , compileBibtex
+    , BibEntry
     , BibTeX
     ) where
 
@@ -10,28 +11,29 @@ import Prolog
 import Data.List qualified as L
 import Hakyll
 import Text.BibTeX.Entry qualified as B
-import Text.BibTeX.Format qualified as B
+import Text.BibTeX.Format qualified as BF
 import Text.BibTeX.Parse qualified as B
 import Text.Parsec qualified as P
 
-import Hakyll.Parsec.Parsec
+import Hakyll.Parsec
 
-type BibTeX = B.T
+type BibEntry = B.T
+type BibTeX = [BibEntry]
 
 deriving instance Generic B.T
 instance Binary B.T
 
 instance Writable B.T where
-    write p = write p . B.entry
+    write p = write p . fmap BF.entry
 
 instance Writable [B.T] where
-    write p = write p . fold . L.intersperse "\n" . fmap B.entry
+    write p = write p . fmap (fold . L.intersperse "\n" . fmap BF.entry)
 
 
-compileBibtex :: (StringConv s String) => Item s -> Compiler (Item [B.T])
+compileBibtex :: (StringConv s String) => Item s -> Compiler (Item BibTeX)
 compileBibtex = compileParsec_ p . fmap toSL
     where
         p = B.skippingLeadingSpace $ B.file <* P.eof
 
-bibtexCompiler :: Compiler (Item [B.T])
+bibtexCompiler :: Compiler (Item BibTeX)
 bibtexCompiler = getResourceBody >>= compileBibtex