From d0ac50c1afa6bc78db347f629d70f6fac237b51d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= Date: Sun, 29 Apr 2018 10:43:55 +0200 Subject: [PATCH] Additional QA clean-up --- Crypto/PubKey/Curve448.hs | 1 - QA.hs | 6 ++++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Crypto/PubKey/Curve448.hs b/Crypto/PubKey/Curve448.hs index bc83fb9..0900773 100644 --- a/Crypto/PubKey/Curve448.hs +++ b/Crypto/PubKey/Curve448.hs @@ -12,7 +12,6 @@ -- data types are compatible with the encoding specified in RFC 7748. -- {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MagicHash #-} module Crypto.PubKey.Curve448 ( SecretKey , PublicKey diff --git a/QA.hs b/QA.hs index 19827dd..09bb60e 100644 --- a/QA.hs +++ b/QA.hs @@ -23,10 +23,10 @@ newtype ModuleName = ModuleName String allowedExtensions = [ ScopedTypeVariables, BangPatterns, ForeignFunctionInterface, DeriveDataTypeable, ViewPatterns, GeneralizedNewtypeDeriving, ExistentialQuantification, EmptyDataDecls - , TypeFamilies, KindSignatures ] + , TypeFamilies, KindSignatures, DataKinds ] perModuleAllowedExtensions = [ ("Crypto/Hash/Utils.hs", [MagicHash]) - , ("Crypto/Hash/SHAKE.hs", [UndecidableInstances,TypeOperators,ConstraintKinds,DataKinds,KindSignatures]) + , ("Crypto/Hash/SHAKE.hs", [UndecidableInstances,TypeOperators,ConstraintKinds]) , ("Crypto/Internal/ByteArray.hs", [MagicHash, UnboxedTuples]) , ("Crypto/Internal/Memory.hs", [MagicHash, UnboxedTuples]) , ("Crypto/Internal/Compat.hs", [CPP]) @@ -42,8 +42,10 @@ perModuleAllowedExtensions = , ("Crypto/Cipher/AES.hs", [CPP]) , ("Crypto/Cipher/Types/Block.hs", [Rank2Types, MultiParamTypeClasses]) , ("Crypto/Cipher/Types/AEAD.hs", [Rank2Types]) + , ("Crypto/Cipher/CAST5/Primitive.hs", [MagicHash]) , ("Crypto/Cipher/Camellia/Primitive.hs", [MagicHash]) , ("Crypto/Cipher/DES/Primitive.hs", [FlexibleInstances]) + , ("Crypto/Cipher/Twofish/Primitive.hs", [MagicHash]) , ("Crypto/PubKey/Curve25519.hs", [MagicHash]) , ("Crypto/Number/Compat.hs", [UnboxedTuples,MagicHash,CPP]) ]