1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

The Default strategy produces Nothing.

This commit is contained in:
Rob Rix 2017-10-04 12:33:26 -04:00
parent d9921b34a2
commit 5a44b078ce

View File

@ -103,6 +103,10 @@ class HasDeclarationWithStrategy (strategy :: Strategy) f where
toDeclarationWithStrategy :: proxy strategy -> f a -> Maybe Declaration
instance HasDeclarationWithStrategy 'Default f where
toDeclarationWithStrategy _ _ = Nothing
getDeclaration :: HasField fields (Maybe Declaration) => Record fields -> Maybe Declaration
getDeclaration = getField