{-# OPTIONS_GHC -Wno-orphans #-}

module Data.SegTree.RangeMaxRangeMax where

import Data.SegTree
import Data.Semigroup

instance
  (Ord a, Bounded a) =>
  AsSemigroupEndo (Max a) (Max a)
  where
  sendo :: Max a -> Max a -> Max a
sendo = Max a -> Max a -> Max a
forall a. Semigroup a => a -> a -> a
(<>)
  {-# INLINE sendo #-}