tpdb-0.0: test/read_print_srs.hs

import TPDB.Plain.Write
import TPDB.Plain.Read

import Control.Monad ( forM, void )

main = void $ do
    s <- readFile "test/z001.srs"
    case srs s of
        Right t -> print $ pretty t
        Left err -> error err