order-maintenance-0.2.1.0: src/library/Data/Order/Algorithm/Raw/Default.hs

module Data.Order.Algorithm.Raw.Default (

    OrderCell,
    ElementCell,
    rawAlgorithm

) where

-- Data

import           Data.Order.Algorithm.Raw
import qualified Data.Order.Algorithm.Raw.DietzSleatorAmortizedLog
                     as DietzSleatorAmortizedLog

type OrderCell = DietzSleatorAmortizedLog.OrderCell

type ElementCell = DietzSleatorAmortizedLog.ElementCell

rawAlgorithm :: RawAlgorithm s OrderCell ElementCell
rawAlgorithm = DietzSleatorAmortizedLog.rawAlgorithm