module Main (main) where

import Ain48.Types
import Options.Applicative

parser_opts :: Parser Bool
parser_opts = switch ( long "decode"
                         <> short 'd'
                         <> help "Decode a binary file instead of encoding a dump file")

main :: IO ()
main = do
    opts <- execParser $ info (parser_opts <**> helper)
                ( fullDesc <> progDesc "Convert to and from 12 bit byte binaries"
                           <> header "dump12 --- conversion utility" )
    print opts