{-# language DerivingStrategies #-}

module HugeTLBOptionsType where

import HugeTLBSizeType (HugeTLBSize)

import Prelude (Eq, Ord, Show)

data HugeTLBOptions =
  DefaultHugeTLB
      -- ^ Use the system default hugetlb page size
  | HugeTLBSize HugeTLBSize
      -- ^ Prefer the given hugetlb page size
  deriving stock (HugeTLBOptions -> HugeTLBOptions -> Bool
(HugeTLBOptions -> HugeTLBOptions -> Bool)
-> (HugeTLBOptions -> HugeTLBOptions -> Bool) -> Eq HugeTLBOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c/= :: HugeTLBOptions -> HugeTLBOptions -> Bool
== :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c== :: HugeTLBOptions -> HugeTLBOptions -> Bool
Eq, Eq HugeTLBOptions
Eq HugeTLBOptions
-> (HugeTLBOptions -> HugeTLBOptions -> Ordering)
-> (HugeTLBOptions -> HugeTLBOptions -> Bool)
-> (HugeTLBOptions -> HugeTLBOptions -> Bool)
-> (HugeTLBOptions -> HugeTLBOptions -> Bool)
-> (HugeTLBOptions -> HugeTLBOptions -> Bool)
-> (HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions)
-> (HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions)
-> Ord HugeTLBOptions
HugeTLBOptions -> HugeTLBOptions -> Bool
HugeTLBOptions -> HugeTLBOptions -> Ordering
HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions
$cmin :: HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions
max :: HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions
$cmax :: HugeTLBOptions -> HugeTLBOptions -> HugeTLBOptions
>= :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c>= :: HugeTLBOptions -> HugeTLBOptions -> Bool
> :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c> :: HugeTLBOptions -> HugeTLBOptions -> Bool
<= :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c<= :: HugeTLBOptions -> HugeTLBOptions -> Bool
< :: HugeTLBOptions -> HugeTLBOptions -> Bool
$c< :: HugeTLBOptions -> HugeTLBOptions -> Bool
compare :: HugeTLBOptions -> HugeTLBOptions -> Ordering
$ccompare :: HugeTLBOptions -> HugeTLBOptions -> Ordering
$cp1Ord :: Eq HugeTLBOptions
Ord, Int -> HugeTLBOptions -> ShowS
[HugeTLBOptions] -> ShowS
HugeTLBOptions -> String
(Int -> HugeTLBOptions -> ShowS)
-> (HugeTLBOptions -> String)
-> ([HugeTLBOptions] -> ShowS)
-> Show HugeTLBOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HugeTLBOptions] -> ShowS
$cshowList :: [HugeTLBOptions] -> ShowS
show :: HugeTLBOptions -> String
$cshow :: HugeTLBOptions -> String
showsPrec :: Int -> HugeTLBOptions -> ShowS
$cshowsPrec :: Int -> HugeTLBOptions -> ShowS
Show)

-- ^ Not every 'HugeTLBSizeType.HugeTLBSize' may be available on your platform. If you select an unsupported page size, the system default page size will be used instead. See 'Memfd.supportedHugeTLBSizes'.