BiobaseBlast-0.3.0.0: Biobase/SubstMatrix/Embedded.hs

module Biobase.SubstMatrix.Embedded where

import Control.Monad.Except
import Data.ByteString (ByteString)
import Data.FileEmbed
import Control.Arrow (second)

import Numeric.Discretized
import Statistics.Odds

import Biobase.SubstMatrix.Import
import Biobase.SubstMatrix.Types



embeddedPamBlosumFiles ∷ [(FilePath,ByteString)]
embeddedPamBlosumFiles = $(embedDir "sources/PamBlosum")

embeddedPamBlosum ∷ [(FilePath,AASubstMat t (DiscLogOdds Unknown) a)]
embeddedPamBlosum = either error id . runExcept
                  . mapM (\(k,v) → fromByteString v >>= \mv → return (k,mv))
                  $ embeddedPamBlosumFiles
{-# NoInline embeddedPamBlosum #-}