{-# LANGUAGE OverloadedStrings #-}

module Hi.Types
    (
      Flag
    , InitFlags
    , Label
    , Option(..)
    , Mode(..)
    , Files
    , Error
    ) where

type Files = [(FilePath, String)]

type Flag = String

type InitFlags = [(String, String)]

type Error = String

type Label = String

-- | Options
data Option = Version | Help | Arg Label String deriving(Eq, Show)

-- | Run mode.
data Mode = ShowVersion | ShowHelp | Run deriving(Eq, Show)

{-# LANGUAGE OverloadedStrings #-}

module Hi.Types
    ( InitFlags
    , Label
    , Option(..)
    , Mode(..)
    , Files
    , Error
    ) where

type Files = [(FilePath, String)]

type InitFlags = [(String, String)]

type Error = String

type Label = String

-- | Options
data Option = Version | Help | Arg Label String deriving(Eq, Show)

-- | Run mode.
data Mode = ShowVersion | ShowHelp | Run deriving(Eq, Show)

Remove Flag since it wasn't used anymore
Remove Flag since it wasn't used anymore
