diff --git a/src/Graphics/UI/GLUT/Initialization.hs b/src/Graphics/UI/GLUT/Initialization.hs
index ab2066e..0eb6596 100644
--- a/src/Graphics/UI/GLUT/Initialization.hs
+++ b/src/Graphics/UI/GLUT/Initialization.hs
@@ -260,6 +260,9 @@ data DisplayMode
      -- ^ Select a window without any borders (/freeglut only/).
    | SRGBMode
      -- ^ Select an sRGB mode window (/freeglut only/).
+   | MacOSCore32Profile
+     -- ^ Select a window with support for OpenGL 3.2 core profile
+     -- (/macOS system GLUT only/).
    deriving ( Eq, Ord, Show )
 
 marshalDisplayMode :: DisplayMode -> CUInt
@@ -286,6 +289,7 @@ marshalDisplayMode m = case m of
    Captionless -> glut_CAPTIONLESS
    Borderless -> glut_BORDERLESS
    SRGBMode -> glut_SRGB
+   MacOSCore32Profile -> glut_3_2_CORE_PROFILE
 
 --------------------------------------------------------------------------------
 
diff --git a/src/Graphics/UI/GLUT/Raw/Tokens.hs b/src/Graphics/UI/GLUT/Raw/Tokens.hs
index 4b897c7..4bb0510 100644
--- a/src/Graphics/UI/GLUT/Raw/Tokens.hs
+++ b/src/Graphics/UI/GLUT/Raw/Tokens.hs
@@ -18,6 +18,9 @@ module Graphics.UI.GLUT.Raw.Tokens where
 import Foreign.C.Types ( CInt, CUInt )
 import Graphics.Rendering.OpenGL ( GLenum )
 
+glut_3_2_CORE_PROFILE :: CUInt
+glut_3_2_CORE_PROFILE = 0x0800
+
 glut_ACCUM :: CUInt
 glut_ACCUM = 0x0004