1 files changed, 1 insertions, 1 deletions

diff --git a/build/extract-title.hs b/build/extract-title.hs
index 4582657..6964d26 100755
--- a/build/extract-title.hs
+++ b/build/extract-title.hs
@@ -10,7 +10,7 @@ import qualified Data.Aeson as A
 import qualified Data.ByteString.Lazy as BL
 
 extract_title :: Pandoc -> String
-extract_title d@(Pandoc m _) = do
+extract_title (Pandoc m _) = do
   title <- render Nothing $ cat $ map pretty (docTitle m)
   return title
     where pretty :: Inline -> Doc