git.iko.soy/typeable/pandoc
on commonmark-github help sign in
typeable/pandoc/pandoc.hs
43 lines 1.5 kB history raw
1{-# LANGUAGE CPP #-}
3{-# LANGUAGE ScopedTypeVariables #-}
4{-# LANGUAGE TupleSections #-}
5{-
6Copyright (C) 2006-2016 John MacFarlane <jgm@berkeley.edu>
8This program is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2 of the License, or
11(at your option) any later version.
13This program is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
18You should have received a copy of the GNU General Public License
19along with this program; if not, write to the Free Software
20Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21-}
23{- |
24 Module : Main
25 Copyright : Copyright (C) 2006-2016 John MacFarlane
26 License : GNU GPL, version 2 or above
28 Maintainer : John MacFarlane <jgm@berkeley@edu>
29 Stability : alpha
30 Portability : portable
32Parses command-line options and calls the appropriate readers and
33writers.
34-}
35module Main where
36import qualified Control.Exception as E
37import Text.Pandoc.App (convertWithOpts, defaultOpts, options, parseOptions)
38import Text.Pandoc.Error (PandocError, handleError)
40main :: IO ()
41main = E.catch (parseOptions options defaultOpts >>= convertWithOpts)
42 (\(e :: PandocError) -> handleError (Left e))