@@ -629,7 +629,7 @@ newtype DidUnlinkPort = DidUnlinkPort SendPortId
629629
630630-- | 'SpawnRef' are used to return pids of spawned processes
631631newtype SpawnRef = SpawnRef Int32
632− deriving (Show, Binary, Typeable, Eq)
632+ deriving (Show, Binary, Typeable, Eq, Ord)
633633
634634-- | (Asynchronius) reply from 'spawn'
635635data DidSpawn = DidSpawn SpawnRef ProcessId