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

add first warning

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-07 06:03:35 +01:00
parent abacea200d
commit 0e40a621da
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
QA.hs
View File

@ -2,6 +2,7 @@
module Main where module Main where
import Language.Haskell.Exts import Language.Haskell.Exts
import Language.Haskell.Exts.Pretty
import Data.List import Data.List
import System.Directory import System.Directory
import System.FilePath import System.FilePath
@ -24,7 +25,7 @@ main = do
Just (_, exts) -> qaExts file content exts Just (_, exts) -> qaExts file content exts
qaExts file content exts = do qaExts file content exts = do
putStrLn ("extensions : " ++ (intercalate ", " $ map show exts)) printInfo "extensions" (intercalate ", " $ map show exts)
let mode = defaultParseMode { parseFilename = file, extensions = exts } let mode = defaultParseMode { parseFilename = file, extensions = exts }
@ -32,13 +33,21 @@ main = do
ParseFailed srcLoc s -> printError ("failed to parse module: " ++ show srcLoc ++ " : " ++ s) ParseFailed srcLoc s -> printError ("failed to parse module: " ++ show srcLoc ++ " : " ++ s)
ParseOk mod -> do ParseOk mod -> do
let imports = getModulesImports mod let imports = getModulesImports mod
putStrLn (show (map importModule imports)) printInfo "modules" (intercalate ", " (map (prettyPrint . importModule) imports))
let useSystemIOUnsafe = elem (ModuleName "System.IO.Unsafe") (map importModule imports)
when useSystemIOUnsafe $ printWarningImport "Crypto.Internal.Compat" "System.IO.Unsafe"
printHeader s = printHeader s =
setSGR [SetColor Foreground Vivid Green] >> putStrLn s >> setSGR [] setSGR [SetColor Foreground Vivid Green] >> putStrLn s >> setSGR []
printInfo k v =
setSGR [SetColor Foreground Vivid Blue] >> putStr k >> setSGR [] >> putStr ": " >> putStrLn v
printError s = printError s =
setSGR [SetColor Foreground Vivid Red] >> putStrLn s >> setSGR [] setSGR [SetColor Foreground Vivid Red] >> putStrLn s >> setSGR []
printWarningImport expected actual =
setSGR [SetColor Foreground Vivid Yellow] >> putStrLn ("warning: use " ++ show expected ++ " instead of " ++ actual) >> setSGR []
getModulesImports (Module _ _ _ _ _ imports _) = imports getModulesImports (Module _ _ _ _ _ imports _) = imports
findAllModules :: IO [FilePath] findAllModules :: IO [FilePath]