ocharles/weeder
1
1
Fork 0
mirror of https://github.com/ocharles/weeder.git synced 2024-11-27 02:33:03 +03:00
Code Issues Projects Releases Wiki Activity

Instances retain everything

Browse Source
This commit is contained in:
Oliver Charles 2019-09-16 10:08:22 +01:00
parent 2a1940f8cd
commit fa58203900
3 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Weeder.hs
View File

@ -462,7 +462,7 @@ topLevelAnalysis n@Node{ nodeChildren } = do
-- ,
analyseBinding n
-- , analyseRewriteRule n
-- , analyseInstanceDeclaration n
, analyseInstanceDeclaration n
-- , analyseClassDeclaration n
-- , analyseDataDeclaration n
]

15
tests/Main.hs
View File

@ -108,27 +108,32 @@ fileToTestCase sourceFilePath =
analysis =
execState ( analyseHieFile hieFile ) emptyAnalysis
testModule =
Module
( DefiniteUnitId ( DefUnitId ( stringToInstalledUnitId "main" ) ) )
testModuleName
reachableSet =
reachable
analysis
( Set.singleton
Declaration
{ declModule =
Module
( DefiniteUnitId ( DefUnitId ( stringToInstalledUnitId "main" ) ) )
testModuleName
testModule
, declOccName =
mkOccName varName "root"
}
)
dead =
allDeclarations analysis Set.\\ reachableSet
Set.filter
( \d -> declModule d == testModule )
( allDeclarations analysis Set.\\ reachableSet )
unless
( Set.null dead )
( for_ dead \d ->
liftIO ( putStrLn ( declarationStableName d <> " is dead, but should be alive" ) )
liftIO ( fail ( declarationStableName d <> " is dead, but should be alive" ) )
)
-- | Recursively search for .hie files in given directory

9
tests/test-cases/Instances retain top level bindings.hs Normal file
View File

@ -0,0 +1,9 @@
module Test () where
alive :: String
alive = "Alive"
data T = T
instance Show T where
show T = alive