From 49671158fa40d4f3cf8f85e1762067864ab74891 Mon Sep 17 00:00:00 2001 From: John Ky Date: Tue, 15 Apr 2025 08:04:26 +1000 Subject: [PATCH] New asTypeFromValue function --- cardano-api/src/Cardano/Api/Internal/HasTypeProxy.hs | 4 ++++ 1 file changed, 4 insertions(+) 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