RNAlien-1.3.7: src/Bio/RNAcentralHTTPRequest.hs

{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE DeriveDataTypeable #-}

-- | RNAcentralHTTPRequest
--   Testcommand: dist/build/RNAcentralHTTPRequest/RNAcentralHTTPRequest -i ATACTTACCTGGCACAGGGGATACCACGATCACCAAGGTGGTTCCCCCAAGACGAGGCTCACCATTGCACTCCGGTGGCGCTGACCCTTGCAATGACCCCAAATGTGGGTTACTCGGGTGTGTAATTTCTGTTAGCTGGGGACTGCGTTCGCGCTTTCCCCTT
module Main where

import System.Console.CmdArgs
import Bio.RNAcentralHTTP

data Options = Options
  { inputSequence :: String
  } deriving (Show,Data,Typeable)

options :: Options
options = Options
  { inputSequence = def &= name "i" &= help "input sequence"
  } &= summary "RNAcentralHTTPRequest" &= help "Florian Eggenhofer 2016" &= verbosity

main :: IO ()
main = do
  Options{..} <- cmdArgs options
  let query = buildStringViaMD5Query inputSequence
  rnacentralentries <- getRNACentralEntries [query]
  print rnacentralentries