diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,8 @@
+0.4.1
+=====
+
+* Reexport `sortWith` from `GHC.Exts`.
+
 0.4
 ===
 
diff --git a/src/List.hs b/src/List.hs
--- a/src/List.hs
+++ b/src/List.hs
@@ -1,5 +1,5 @@
-{-# LANGUAGE CPP  #-}
-{-# LANGUAGE Safe #-}
+{-# LANGUAGE CPP         #-}
+{-# LANGUAGE Trustworthy #-}
 
 -- | Utility functions to work with lists.
 
@@ -8,6 +8,7 @@
        , ordNub
        , sortBy
        , sortOn
+       , sortWith
        , unzip
        , unzip3
 #if ( __GLASGOW_HASKELL__ >= 800 )
@@ -22,6 +23,7 @@
 import           Data.List           (sortBy, sortOn, unzip, unzip3, zip, zip3)
 import           Data.Ord            (Ord)
 import qualified Data.Set            as Set
+import           GHC.Exts            (sortWith)
 
 #if ( __GLASGOW_HASKELL__ >= 800 )
 import           Control.Applicative (Applicative)
diff --git a/universum.cabal b/universum.cabal
--- a/universum.cabal
+++ b/universum.cabal
@@ -1,5 +1,5 @@
 name:                universum
-version:             0.4
+version:             0.4.1
 synopsis:            Custom prelude used in Serokell
 description:         Custom prelude used in Serokell
 homepage:            https://github.com/serokell/universum