seqloc-0.1: src/Bio/SeqLoc/LocRepr.hs

module Bio.SeqLoc.LocRepr
       ( LocRepr(..), reprStr
       , unreprMaybe, unreprEither, unreprErr
       )       
       where

import qualified Data.ByteString.Char8 as BS

import qualified Data.Attoparsec.Zepto as ZP

class LocRepr l where
  repr :: l -> BS.ByteString
  unrepr :: ZP.Parser l
  
reprStr :: (LocRepr l) => l -> String
reprStr = BS.unpack . repr
  
unreprMaybe :: (LocRepr l) => BS.ByteString -> Maybe l
unreprMaybe = either (const Nothing) Just . ZP.parse unrepr

unreprEither :: (LocRepr l) => BS.ByteString -> Either String l
unreprEither = ZP.parse unrepr

unreprErr :: (LocRepr l) => BS.ByteString -> l
unreprErr = either error id . ZP.parse unrepr