haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[QA] add more warnings

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-22 06:25:45 +01:00
parent c06edc9591
commit 4a82ef383d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
QA.hs
View File

@ -27,6 +27,7 @@ disallowedModules =
[ (ModuleName "System.IO.Unsafe", ModuleName "Crypto.Internal.Compat") [ (ModuleName "System.IO.Unsafe", ModuleName "Crypto.Internal.Compat")
, (ModuleName "Data.Byteable", ModuleName "Crypto.Internal.ByteArray") , (ModuleName "Data.Byteable", ModuleName "Crypto.Internal.ByteArray")
, (ModuleName "Data.SecureMem", ModuleName "Crypto.Internal.ByteArray") , (ModuleName "Data.SecureMem", ModuleName "Crypto.Internal.ByteArray")
, (ModuleName "Data.ByteString", ModuleName "Crypto.Internal.ByteArray")
, (ModuleName "Control.Applicative", ModuleName "Crypto.Internal.Imports") , (ModuleName "Control.Applicative", ModuleName "Crypto.Internal.Imports")
] ]
@ -39,6 +40,10 @@ perModuleAllowedModules =
[ ModuleName "Data.SecureMem" [ ModuleName "Data.SecureMem"
] ]
) )
, ("Crypto/Internal/ByteArray.hs",
[ ModuleName "Data.ByteString"
]
)
] ]
data ModuleState = ModuleState data ModuleState = ModuleState
@ -158,7 +163,7 @@ printReport st m =
printWarningImport st (ModuleName expected) (ModuleName actual) = do printWarningImport st (ModuleName expected) (ModuleName actual) = do
incrWarnings st incrWarnings st
setSGR [SetColor Foreground Vivid Yellow] >> putStrLn ("warning: use module " ++ expected ++ " instead of " ++ actual) >> setSGR [] setSGR [SetColor Foreground Vivid Yellow] >> putStrLn ("warning: using module " ++ expected ++ " , should use " ++ actual) >> setSGR []
printWarningExtension st ext = do printWarningExtension st ext = do
incrWarnings st incrWarnings st