moduleBioInf.RNAwolf.TypeswhereimportBiobase.PrimaryimportBiobase.SecondaryimportData.PrimitiveArrayimportBioInf.ParamsnewDdherenext=d-(next-here)testDd=d>=0-- | Should really go into BiobaseXNAwsh=[wc,sugar,hoogsteen]-- | Should really go into BiobaseXNAcitr=[cis,trans]typeExtBT=Int->Int->CTisomerism->Edge->Edge->Double->BTAnswertypeNBT=Int->Int->Double->BTAnswertypeBTAnswer=[([ExtPairIdx],Double)]typeTable=PrimArrayPairIdxDoubletypeExtTable=PrimArrayExtPairIdxDoubletypeBaseFa=Params->Primary->atypeExtFeaturesa=Int->Int->CTisomerism->Edge->Edge->atypeFeaturesa=Int->Int->atypeTables=(EStem,NStem,NInte,NInteLoop,NBulg,NBulgLoop,NMult,NMbr,NMbr1,NMultLoop,NExtn)-- ** Newtype wrappers for all tables.---- NOTE Don't ever not newtype-wrap or you will hurt your brain.newtypeEStem=EStem{unEStem::ExtTable}newtypeNStem=NStem{unNStem::Table}newtypeNInte=NInte{unNInte::Table}newtypeNInteLoop=NInteLoop{unNInteLoop::Table}newtypeNMult=NMult{unNMult::Table}newtypeNBulg=NBulg{unNBulg::Table}newtypeNBulgLoop=NBulgLoop{unBulgLoop::Table}newtypeNMbr=NMbr{unNMbr::Table}newtypeNMbr1=NMbr1{unNMbr1::Table}newtypeNExtn=NExtn{unNExtn::Table}newtypeNMultLoop=NMultLoop{unMultLoop::Table}