1
1
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00

Ignore a hint that doesn’t work.

This commit is contained in:
Rob Rix 2018-10-24 15:07:23 -04:00
parent 131cae4d7b
commit 254e20e831

View File

@ -138,6 +138,8 @@ graphingModules recur m = do
includeModule path = let path' = if Prologue.null path then "unknown, concrete semantics required" else path
in moduleInclusion (moduleVertex (ModuleInfo path'))
{-# ANN graphingModules ("HLint: ignore Use ." :: String) #-}
-- | Add vertices to the graph for imported modules.
graphingModuleInfo :: forall term address value m sig a
. ( Member (Eavesdrop (Modules address)) sig