From 4a82ef383d9c0a43054726c9d3506b611842b4e2 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 22 Apr 2015 06:25:45 +0100 Subject: [PATCH] [QA] add more warnings --- QA.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/QA.hs b/QA.hs index 739a15e..404b1f4 100644 --- a/QA.hs +++ b/QA.hs @@ -27,6 +27,7 @@ disallowedModules = [ (ModuleName "System.IO.Unsafe", ModuleName "Crypto.Internal.Compat") , (ModuleName "Data.Byteable", 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") ] @@ -39,6 +40,10 @@ perModuleAllowedModules = [ ModuleName "Data.SecureMem" ] ) + , ("Crypto/Internal/ByteArray.hs", + [ ModuleName "Data.ByteString" + ] + ) ] data ModuleState = ModuleState @@ -158,7 +163,7 @@ printReport st m = printWarningImport st (ModuleName expected) (ModuleName actual) = do 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 incrWarnings st