{-| FastOut reads nucleotide sequences in any supported format,
    and outputs fasta, (sanger) fastq, or illumina fastq.

    Usage: fastout {fasta,fastq,illum} input output
-}

module Main where

import Bio.Sequence
import System.Environment (getArgs)

main = do
  [f,inp,out] <- getArgs
  let out_func = case f of 
        "fasta" -> writeFasta
        "fastq" -> writeSangerQ
        "illum" -> writeIllumina
        _ -> error "Usage: fastout {fasta,fastq,illum} input output"
  out_func out =<< readNuc inp