module Biobase.ExtSS.Export where
import Data.ByteString.Char8 as BS
import Data.Iteratee as I
import Data.Iteratee.Char as I
import Data.Iteratee.ListLike as I
import Prelude as P hiding (sequence)
import Text.Printf
import Biobase.ExtSS
eneeByteString :: (Monad m) => Enumeratee [ExtSS] ByteString m a
eneeByteString = mapChunks (BS.unlines . P.map f) where
f :: ExtSS -> ByteString
f ExtSS{..} = BS.unlines
$ P.map (BS.append "#") comments
++ [sequence]
++ [structure]
++ P.map (\(i,j,cww) -> BS.pack $ printf " %4d %4d %3s") detailed