diff --git a/docs/Prelude.md b/docs/Prelude.md
index 20eac23a..4b6695de 100644
--- a/docs/Prelude.md
+++ b/docs/Prelude.md
@@ -975,4 +975,9 @@ instance showArray :: (Show a) => Show (Array a)
 instance showOrdering :: Show Ordering
 ```
 
+#### `unsafeCompare`
 
+``` purescript
+unsafeCompare :: forall a. a -> a -> Ordering
+```
+The `unsafeCompare` function is mainly intended for module writers supporting native types via the FFI, and not for general comparisons.
diff --git a/src/Prelude.purs b/src/Prelude.purs
index 4fd039bb..6c06c5fc 100644
--- a/src/Prelude.purs
+++ b/src/Prelude.purs
@@ -20,6 +20,7 @@ module Prelude
   , DivisionRing
   , Eq, eq, (==), (/=)
   , Ordering(..), Ord, compare, (<), (>), (<=), (>=)
+  , unsafeCompare
   , Bounded, top, bottom
   , BoundedOrd
   , BooleanAlgebra, conj, disj, not, (&&), (||)