remove null blocks

dag · Dec 7, 2011 · ee431bb · ee431bb
1 parent 552ae3b
commit ee431bb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/transform.hs b/transform.hs
@@ -19,7 +19,11 @@ transformBlock HorizontalRule
 
 transformBlock  x = x
 
+removeNull (Pandoc meta blocks)
+  = Pandoc meta $ filter (/= Null) blocks
+
 main = interact $ writeNative defaultWriterOptions
+                . removeNull
                 . bottomUp transformInline
                 . bottomUp transformBlock
                 . readNative