Stefan Dresselhaus
8376d6298b
- Split things into Library and Binary - Library has all functionality - Binarys are just wrapper like "main = toJsonFilter foo" - Documented most things - Created haddock-documentation - added documentation to repository
19 lines
406 B
Haskell
19 lines
406 B
Haskell
#!/usr/bin/env runhaskell
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
|
|
import Text.Pandoc.JSON
|
|
|
|
main :: IO ()
|
|
main = toJSONFilter clean
|
|
|
|
clean :: Block -> [Block]
|
|
clean (Plain []) = []
|
|
clean (Para []) = []
|
|
clean (LineBlock []) = []
|
|
clean (BlockQuote []) = []
|
|
clean (OrderedList _ []) = []
|
|
clean (BulletList []) = []
|
|
clean (DefinitionList []) = []
|
|
clean x = [x]
|
|
|