1962 fix option get ord compare when comparing equality of options (#1963)

* Add test that currently fails

* fix to option getOrd compare function to return 0 for two none values that are not referentially equal

---------

Co-authored-by: Rachel Barrett <rachel@flyp.co>

Author: rachel-barrett

src/Option.ts

@@ -297,7 +297,7 @@ export const getEq = <A>(E: Eq<A>): Eq<Option<A>> => ({
  */
 export const getOrd = <A>(O: Ord<A>): Ord<Option<A>> => ({
   equals: getEq(O).equals,
-  compare: (x, y) => (x === y ? 0 : isSome(x) ? (isSome(y) ? O.compare(x.value, y.value) : 1) : -1)
+  compare: (x, y) => (isSome(x) ? (isSome(y) ? O.compare(x.value, y.value) : 1) : isSome(y) ? -1 : 0)
 })
 
 /**

test/Option.ts

@@ -297,6 +297,7 @@ describe('Option', () => {
   it('getOrd', () => {
     const OS = _.getOrd(S.Ord)
     U.deepStrictEqual(OS.compare(_.none, _.none), 0)
+    U.deepStrictEqual(OS.compare(_.none, { _tag: 'None' }), 0)
     U.deepStrictEqual(OS.compare(_.some('a'), _.none), 1)
     U.deepStrictEqual(OS.compare(_.none, _.some('a')), -1)
     U.deepStrictEqual(OS.compare(_.some('a'), _.some('a')), 0)