From 571c3b41737f3a331706833adeb8241d93cef10c Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 17 Mar 2007 20:23:47 +0000
Subject: Removed Blank block element as unnecessary.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@578 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/ParserCombinators/Pandoc.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/Text/ParserCombinators')

diff --git a/src/Text/ParserCombinators/Pandoc.hs b/src/Text/ParserCombinators/Pandoc.hs
index ced0cb7ca..5b1742975 100644
--- a/src/Text/ParserCombinators/Pandoc.hs
+++ b/src/Text/ParserCombinators/Pandoc.hs
@@ -38,7 +38,6 @@ module Text.ParserCombinators.Pandoc (
                                       blanklines,
                                       escaped,
                                       enclosed,
-                                      blankBlock,
                                       nullBlock,
                                       stringAnyCase,
                                       parseFromStr
@@ -59,12 +58,6 @@ nullBlock = do
   anyChar 
   return Null
 
--- | Parses one or more blank lines; returns 'Blank'.
-blankBlock :: GenParser Char st Block
-blankBlock = do
-  blanklines
-  return Blank
-
 -- | Parses a space or tab.
 spaceChar :: CharParser st Char
 spaceChar = oneOf " \t"
-- 
cgit v1.2.3