github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

The Default strategy produces Nothing.

Browse Source
This commit is contained in:
Rob Rix 2017-10-04 12:33:26 -04:00
parent d9921b34a2
commit 5a44b078ce
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Renderer/TOC.hs
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