diff --git a/src/Data/Record.hs b/src/Data/Record.hs
index ed4aa1738..006b61cc2 100644
--- a/src/Data/Record.hs
+++ b/src/Data/Record.hs
@@ -3,7 +3,6 @@ module Data.Record
 ( Record(..)
 , (.:)
 , HasField(..)
-, maybeGetField
 ) where
 
 import GHC.Show
@@ -24,10 +23,6 @@ infixr 0 .:
 (.:) :: Typeable h => h -> Record t -> Record (h ': t)
 (.:) = RCons
 
-maybeGetField :: Typeable field => Record fields -> Maybe field
-maybeGetField (RCons h t) = cast h <|> maybeGetField t
-maybeGetField RNil = Nothing
-
 
 -- Classes