github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

📝 the HasDeclarationWithStrategy instances.

Browse Source
This commit is contained in:
Rob Rix 2017-10-06 11:28:07 -04:00
parent f7cec59848
commit 88477db7fa
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Renderer/TOC.hs
View File

@ -187,9 +187,11 @@ type family DeclarationStrategy syntax where
DeclarationStrategy a = 'Default
-- | The 'Default' strategy produces 'Nothing'.
instance HasDeclarationWithStrategy 'Default syntax where
toDeclarationWithStrategy _ _ _ _ = Nothing
-- | The 'Custom' strategy delegates the selection of the strategy to the 'CustomHasDeclaration' instance for the type.
instance CustomHasDeclaration syntax => HasDeclarationWithStrategy 'Custom syntax where
toDeclarationWithStrategy _ = customToDeclaration