diff --git a/cardano-api/src/Cardano/Api/Internal/HasTypeProxy.hs b/cardano-api/src/Cardano/Api/Internal/HasTypeProxy.hs
index 5126fbc9a5..de76e1c6c6 100644
--- a/cardano-api/src/Cardano/Api/Internal/HasTypeProxy.hs
+++ b/cardano-api/src/Cardano/Api/Internal/HasTypeProxy.hs
@@ -6,6 +6,7 @@ module Cardano.Api.Internal.HasTypeProxy
   ( HasTypeProxy (AsType, proxyToAsType)
   , Proxy (..)
   , FromSomeType (..)
+  , asTypeFromValue
   )
 where
 
@@ -22,5 +23,8 @@ class Typeable t => HasTypeProxy t where
 
   proxyToAsType :: Proxy t -> AsType t
 
+asTypeFromValue :: HasTypeProxy t => t -> AsType t
+asTypeFromValue _ = proxyToAsType Proxy
+
 data FromSomeType (c :: Type -> Constraint) b where
   FromSomeType :: c a => AsType a -> (a -> b) -> FromSomeType c b