@@ -629,7 +629,7 @@ newtype DidUnlinkPort = DidUnlinkPort SendPortId
630-- | 'SpawnRef' are used to return pids of spawned processes
630-- | 'SpawnRef' are used to return pids of spawned processes
631newtype SpawnRef = SpawnRef Int32
631newtype SpawnRef = SpawnRef Int32
632− deriving (Show, Binary, Typeable, Eq)
632+ deriving (Show, Binary, Typeable, Eq, Ord)
634-- | (Asynchronius) reply from 'spawn'
634-- | (Asynchronius) reply from 'spawn'
635data DidSpawn = DidSpawn SpawnRef ProcessId
635data DidSpawn = DidSpawn SpawnRef ProcessId