17 lines
513 B
Haskell
17 lines
513 B
Haskell
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
|