10 lines
154 B
Haskell
10 lines
154 B
Haskell
|
import Text.Pandoc.JSON
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = toJSONFilter removeLinks
|
||
|
|
|
||
|
|
removeLinks :: Inline -> [Inline]
|
||
|
|
removeLinks (Link l _) = l
|
||
|
|
removeLinks x = [x]
|
||
|
|
|