From 917e50ea7eba78d32c57e2aaa2c409c4e0e5906a Mon Sep 17 00:00:00 2001 From: Richard Marko Date: Sat, 25 Apr 2020 17:42:33 +0200 Subject: [PATCH] drop GEq instances Breaks the build on GHC 8.8.3. --- src/Nix/Var.hs | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/Nix/Var.hs b/src/Nix/Var.hs index 73c2ee678..cec4c1943 100644 --- a/src/Nix/Var.hs +++ b/src/Nix/Var.hs @@ -33,10 +33,3 @@ writeVar = writeRef atomicModifyVar :: MonadAtomicRef m => Ref m a -> (a -> (a, b)) -> m b atomicModifyVar = atomicModifyRef - ---TODO: Upstream GEq instances -instance GEq IORef where - a `geq` b = if a == unsafeCoerce b then Just $ unsafeCoerce Refl else Nothing - -instance GEq (STRef s) where - a `geq` b = if a == unsafeCoerce b then Just $ unsafeCoerce Refl else Nothing