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.