flower-0.6: src/FRecover.hs

module Main where
import Bio.Sequence.SFF
import System.Environment (getArgs)

main :: IO ()
main = mapM_ recoverFile =<< getArgs
  where recoverFile f = writeSFF (f++"_recovered") =<< recoverSFF f