ClustalParser-1.1.0: ClustalParserTest.hs

module Main where
    
import System.Environment (getArgs)
import Bio.ClustalParser
import Data.Either.Unwrap

main :: IO ()
main = do
  args <- getArgs
  let input_file = (head args)                                     
  -- read Clustal outputfile
  parsedinput <- readClustalAlignment input_file
  --parsedinput <- readStructuralClustalAlignment input_file
  --print (entrySequenceIdentifier (head (structuralAlignmentEntries(fromRight parsedinput))))
  print (fromRight parsedinput)