RosettaCodeData/Task/Nested-templated-data/Haskell/nested-templated-data-2.hs

3 lines
88 B
Haskell

subst :: (Functor t, Eq i) => [(i,a)] -> t i -> t (Maybe a)
subst d = fmap (`lookup` d)