module SupportedHugeTLBSizes where

import HugeTLBSizeType

import qualified CreateFlags as Flags

import Data.Maybe (isJust)
import Prelude (enumFrom, minBound)

import qualified Data.List as List

supportedHugeTLBSizes :: [HugeTLBSize]
supportedHugeTLBSizes =
    List.filter (\x -> isJust (Flags.hugeTLBSize x)) (enumFrom minBound)

-- ^ List of hugetlb sizes that are supported by your platform