3 import qualified Data.Map as Map
4 import Data.Array.Unboxed
7 data BkptTable a = BkptTable {
8 -- | An array of breaks, indexed by site number
9 breakpoints :: Map.Map a (UArray Int Bool)
10 -- | A list of lines, each line can have zero or more sites, which are annotated with a column number
11 , sites :: Map.Map a [[(SiteNumber, Int)]]