github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Add a maybeGetField function over Records."

Browse Source 
This reverts commit 41dda71a26dfc2a92fecfdf88d6ab3ad7165d383.
This commit is contained in:
Rob Rix 2016-08-05 09:52:52 -04:00
parent db4ebefe1e
commit a34f9ae3a4
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Record.hs
View File

@ -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