12345678910111213141516171819202122 |
- module Main where
- import Data.Adnot
- import qualified Data.ByteString as BS
- import qualified Data.ByteString.Lazy.Char8 as BSL
- import System.Environment (getArgs)
- import System.Exit (die)
- helpText :: String
- helpText = "Usage: adnot-id [file]"
- main = do
- content <- do
- args <- getArgs
- case args of
- [] -> BS.getContents
- ["-"] -> BS.getContents
- [file] -> BS.readFile file
- _ -> die helpText
- case decodeValue content of
- Right val -> BSL.putStrLn (encodeValue val)
- Left err -> die err
|