From 72ea020d77f462b4440e22dffe357c8e5771897e Mon Sep 17 00:00:00 2001 From: lazyLambda Date: Tue, 30 Jul 2024 19:51:00 -0400 Subject: [PATCH] Remove Duplicated Instance --- common/Rhyolite/Vessel/AuthenticatedV.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/common/Rhyolite/Vessel/AuthenticatedV.hs b/common/Rhyolite/Vessel/AuthenticatedV.hs index 19a4daf7..4c047998 100644 --- a/common/Rhyolite/Vessel/AuthenticatedV.hs +++ b/common/Rhyolite/Vessel/AuthenticatedV.hs @@ -57,10 +57,10 @@ import Data.Vessel.ViewMorphism (ViewQueryResult, ViewMorphism(..), ViewHalfMorp import Data.Vessel.Vessel (vessel) import Data.Bifoldable --- TODO upstream this instance --- see https://github.com/obsidiansystems/vessel/pull/22/commits/b61428df85f0befa90a8cbd18cb860ebded70e21 -instance (Has' Semigroup k (FlipAp g), GCompare k, Has View k) => DecidablyEmpty (Vessel k g) where - isEmpty = nullV +-- -- TODO upstream this instance +-- -- see https://github.com/obsidiansystems/vessel/pull/22/commits/b61428df85f0befa90a8cbd18cb860ebded70e21 +-- instance (Has' Semigroup k (FlipAp g), GCompare k, Has View k) => DecidablyEmpty (Vessel k g) where +-- isEmpty = nullV -- | An internal key type used to glue together parts of a view selector -- that have different authentication contexts.