{-# OPTIONS_GHC -fwarn-unused-imports #-}

import Text.Pandoc
import Text.Pandoc.Writers.Sable

-- | Convert markdown to sable.
main :: IO ()
main =
  getContents >>= \ input ->
  let
    readerOpts = def { readerParseRaw = False }
    pandoc = readMarkdown readerOpts input
    output = writeSable def pandoc
  in
    putStrLn output