From 8cf497182139774464350c7b97a42ce2a198e7aa Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 28 Aug 2007 06:59:57 +0000
Subject: Minor reformatting.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@934 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Readers/Markdown.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 057aec2ee..0c635abee 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -233,8 +233,9 @@ atxClosing = try $ skipMany (char '#') >> blanklines
 
 setextHeader = try $ do
   text <- many1Till inline newline >>= return . normalizeSpaces
-  level <- choice $ zipWith (\ch lev -> try (many1 $ char ch) >> blanklines >> return lev)
-                    setextHChars [1..(length setextHChars)]
+  level <- choice $ zipWith 
+           (\ch lev -> try (many1 $ char ch) >> blanklines >> return lev)
+           setextHChars [1..(length setextHChars)]
   return $ Header level text
 
 --
-- 
cgit v1.2.3