Formats.hs 258 B

12345678910
  1. module Hypsibius.Formats where
  2. import Data.Adnot
  3. import Data.Sequence (Seq)
  4. import qualified Data.ByteString as BS
  5. import Hypsibius.Data
  6. readScale :: FilePath -> IO (Either String Scale)
  7. readScale = fmap decode . BS.readFile