gdritter repos adnot / master adnot-id / Main.hs
master

Tree @master (Download .tar.gz)

Main.hs @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
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