GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-09-11 14:06:13 +03:00
Code Issues Projects Releases Wiki Activity

Don't warn on interfaces that only declare types.

Browse Source
This commit is contained in:
Iavor Diatchki 2022-06-08 13:41:47 -07:00
parent cdbd9b309f
commit af0af83f8d
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Cryptol/ModuleSystem/Renamer.hs
View File

@ -258,7 +258,7 @@ renameModule' mname m =
pure (FunctorInstance f' as' imap)
InterfaceModule s ->
InterfaceModule <$> renameSig mname s
InterfaceModule <$> renameIfaceModule mname s
pure (inScope, newDef)
return (inScope, m { mDef = newDef })
@ -671,8 +671,8 @@ instance Rename ModParam where
pure mp { mpSignature = x, mpRenaming = ren }
renameSig :: ImpName Name -> Signature PName -> RenameM (Signature Name)
renameSig nm sig =
renameIfaceModule :: ImpName Name -> Signature PName -> RenameM (Signature Name)
renameIfaceModule nm sig =
do env <- rmodDefines <$> lookupResolved nm
let depName = case nm of
ImpNested n -> NamedThing n
@ -681,6 +681,11 @@ renameSig nm sig =
depsOf depName
do imps <- traverse renI (sigImports sig)
tps <- traverse rename (sigTypeParams sig)
-- we record a use here to avoid getting a warning in interfaces
-- that declare only types, and so appear "unused".
forM_ tps \tp -> recordUse (thing (ptName tp))
cts <- traverse (traverse rename) (sigConstraints sig)
fun <- traverse rename (sigFunParams sig)
pure Signature