From cda13dc8ec8c2781a830ec68dbf09be9a3189e58 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 8 Apr 2015 14:33:47 +0200
Subject: Minor code cleanup

---
 build/extract-title.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'build/extract-title.hs')

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
-- 
cgit v1.2.3