diff --git a/src/Data/Record.hs b/src/Data/Record.hs
index 138644aec..2383740dd 100644
--- a/src/Data/Record.hs
+++ b/src/Data/Record.hs
@@ -29,6 +29,9 @@ newtype a :=> b = (:=>) (Tagged a b)
 field :: b -> a :=> b
 field = (:=>) . Tagged
 
+unField :: a :=> b -> b
+unField ((:=>) b) = unTagged b
+
 
 -- Classes