diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Changelog for safe-coloured-text
 
+## [0.2.0.1] - 2022-06-29
+
+### Added
+
+* Support blinking text
+
 ## [0.2.0.0] - 2022-06-19
 
 ### Changed
diff --git a/safe-coloured-text.cabal b/safe-coloured-text.cabal
--- a/safe-coloured-text.cabal
+++ b/safe-coloured-text.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           safe-coloured-text
-version:        0.2.0.0
+version:        0.2.0.1
 synopsis:       Safely output coloured text
 category:       User Interfaces
 homepage:       https://github.com/NorfairKing/safe-coloured-text#readme
diff --git a/src/Text/Colour.hs b/src/Text/Colour.hs
--- a/src/Text/Colour.hs
+++ b/src/Text/Colour.hs
@@ -26,6 +26,10 @@
     italic,
     underline,
     doubleUnderline,
+    noUnderline,
+    slowBlinking,
+    rapidBlinking,
+    noBlinking,
 
     -- ** Colours
     Colour (..),
diff --git a/src/Text/Colour/Chunk.hs b/src/Text/Colour/Chunk.hs
--- a/src/Text/Colour/Chunk.hs
+++ b/src/Text/Colour/Chunk.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -Wno-unused-pattern-binds #-}
 
 module Text.Colour.Chunk where
 
@@ -25,6 +26,7 @@
     chunkItalic :: !(Maybe Bool),
     chunkConsoleIntensity :: !(Maybe ConsoleIntensity),
     chunkUnderlining :: !(Maybe Underlining),
+    chunkBlinking :: !(Maybe Blinking),
     chunkForeground :: !(Maybe Colour),
     chunkBackground :: !(Maybe Colour)
   }
@@ -37,13 +39,15 @@
 
 plainChunk :: TerminalCapabilities -> Chunk -> Bool
 plainChunk tc Chunk {..} =
-  and
-    [ isNothing chunkItalic,
-      isNothing chunkConsoleIntensity,
-      isNothing chunkUnderlining,
-      maybe True (plainColour tc) chunkForeground,
-      maybe True (plainColour tc) chunkBackground
-    ]
+  let Chunk _ _ _ _ _ _ _ = undefined
+   in and
+        [ isNothing chunkItalic,
+          isNothing chunkConsoleIntensity,
+          isNothing chunkUnderlining,
+          isNothing chunkBlinking,
+          maybe True (plainColour tc) chunkForeground,
+          maybe True (plainColour tc) chunkBackground
+        ]
 
 plainColour :: TerminalCapabilities -> Colour -> Bool
 plainColour tc = \case
@@ -137,6 +141,7 @@
       chunkItalic = Nothing,
       chunkConsoleIntensity = Nothing,
       chunkUnderlining = Nothing,
+      chunkBlinking = Nothing,
       chunkForeground = Nothing,
       chunkBackground = Nothing
     }
@@ -161,6 +166,18 @@
 
 doubleUnderline :: Chunk -> Chunk
 doubleUnderline chu = chu {chunkUnderlining = Just DoubleUnderline}
+
+noUnderline :: Chunk -> Chunk
+noUnderline chu = chu {chunkUnderlining = Just NoUnderline}
+
+slowBlinking :: Chunk -> Chunk
+slowBlinking chu = chu {chunkBlinking = Just SlowBlinking}
+
+rapidBlinking :: Chunk -> Chunk
+rapidBlinking chu = chu {chunkBlinking = Just RapidBlinking}
+
+noBlinking :: Chunk -> Chunk
+noBlinking chu = chu {chunkBlinking = Just NoBlinking}
 
 -- TODO consider allowing an 8-colour alternative to a given 256-colour
 data Colour
diff --git a/src/Text/Colour/Code.hs b/src/Text/Colour/Code.hs
--- a/src/Text/Colour/Code.hs
+++ b/src/Text/Colour/Code.hs
@@ -72,6 +72,7 @@
   = Reset
   | SetItalic !Bool
   | SetUnderlining !Underlining
+  | SetBlinking !Blinking
   | SetConsoleIntensity !ConsoleIntensity
   | SetColour !ColourIntensity !ConsoleLayer !TerminalColour
   | Set8BitColour !ConsoleLayer !Word8
@@ -102,6 +103,12 @@
         DoubleUnderline -> 21
         NoUnderline -> 24
     ]
+  SetBlinking b ->
+    [ case b of
+        SlowBlinking -> 5
+        RapidBlinking -> 6
+        NoBlinking -> 25
+    ]
   SetConsoleIntensity ci ->
     [ case ci of
         BoldIntensity -> 1
@@ -142,6 +149,15 @@
   deriving (Show, Eq, Generic, Bounded, Enum)
 
 instance Validity Underlining
+
+-- | ANSI text blinking
+data Blinking
+  = SlowBlinking
+  | RapidBlinking
+  | NoBlinking
+  deriving (Show, Eq, Generic, Bounded, Enum)
+
+instance Validity Blinking
 
 -- | ANSI general console intensity: usually treated as setting the font style
 -- (e.g. 'BoldIntensity' causes text to be bold)