denisshevchenko

instance Options MainOptions where
    defineOptions = 
        MainOptions <$> defineOption optionType_bool a_help
                    <*> defineOption optionType_bool a_version
                    <*> defineOption optionType_string a_path
        where a_help opt = opt { optionLongFlags = ["help"]
                               , optionShortFlags = ['h']
                               }
              a_version opt = opt { optionLongFlags = ["version"]
                                  , optionShortFlags = ['v']

denisshevchenko

{-
   Денис Шевченко, 2015
-}

module Main where

import Control.Monad.Writer.Lazy
import Data.Functor ((<$>))
import Data.List (dropWhileEnd)
import Data.Char (isSpace)