Quadrants.hs

--------------------------------------------------------------------------------
-- |
-- Module      :  Data.Geometry.QuadTree.Quadrants
-- Copyright   :  (C) Frank Staals
-- License     :  see the LICENSE file
-- Maintainer  :  Frank Staals
--------------------------------------------------------------------------------
module Data.Geometry.QuadTree.Quadrants( pattern Quadrants
                                       , Quadrants
                                       , module Data.Geometry.Box.Corners
                                       ) where

import           Data.Geometry.Box.Corners

--------------------------------------------------------------------------------

type Quadrants = Corners

pattern Quadrants         :: a -> a -> a -> a -> Corners a
pattern Quadrants a b c d = Corners a b c d
{-# COMPLETE Quadrants #-}

--------------------------------------------------------------------------------