Embedded.hs

module Biobase.GeneticCodes.Embedded where

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

import Biobase.GeneticCodes.Import
import Biobase.GeneticCodes.Types

geneticCodesFile :: ByteString
geneticCodesFile = $(makeRelativeToProject "sources/translation-tables" >>= embedFile)

geneticCodes :: [TranslationTable Char Char]
geneticCodes = either error id . runExcept $ fromByteString geneticCodesFile