module App.Commands.Options.Parser where

import Antiope.Core               (FromText, fromText)
import App.Commands.Options.Types (VersionOptions (..))
import Options.Applicative

import qualified Data.Text as Text

optsVersion :: Parser VersionOptions
optsVersion :: Parser VersionOptions
optsVersion = VersionOptions -> Parser VersionOptions
forall (f :: * -> *) a. Applicative f => a -> f a
pure VersionOptions
VersionOptions

text :: FromText a => ReadM a
text :: ReadM a
text = (String -> Either String a) -> ReadM a
forall a. (String -> Either String a) -> ReadM a
eitherReader (Text -> Either String a
forall a. FromText a => Text -> Either String a
fromText (Text -> Either String a)
-> (String -> Text) -> String -> Either String a
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Text
Text.pack)