Make CompactionFailed a newtype
authorRyan Scott <ryan.gl.scott@gmail.com>
Tue, 20 Dec 2016 21:32:30 +0000 (16:32 -0500)
committerRyan Scott <ryan.gl.scott@gmail.com>
Tue, 20 Dec 2016 21:32:30 +0000 (16:32 -0500)
libraries/base/GHC/IO/Exception.hs

index a8d63d3..3c08852 100644 (file)
@@ -129,12 +129,12 @@ allocationLimitExceeded = toException AllocationLimitExceeded
 
 -----
 
--- |Compaction found an object that cannot be compacted.  Functions
+-- | Compaction found an object that cannot be compacted.  Functions
 -- cannot be compacted, nor can mutable objects or pinned objects.
 -- See 'Data.Compact.compact'.
 --
 -- @since 4.10.0.0
-data CompactionFailed = CompactionFailed String
+newtype CompactionFailed = CompactionFailed String
 
 -- | @since 4.10.0.0
 instance Exception CompactionFailed where