[QA] add some extra exceptions for module and extensions

QA.hs

@@ -23,6 +23,8 @@ perModuleAllowedExtensions =
     [ ("Crypto/Hash/Utils.hs", [MagicHash])
     , ("Crypto/Internal/ByteArray.hs", [MagicHash, UnboxedTuples])
     , ("Crypto/Internal/Memory.hs", [MagicHash, UnboxedTuples])
+    , ("Crypto/Internal/Compat.hs", [CPP])
+    , ("Crypto/Internal/CompatPrim.hs", [CPP,MagicHash])
     ]
 
 disallowedModules =
@@ -46,6 +48,10 @@ perModuleAllowedModules =
             [ ModuleName "Data.ByteString"
             ]
       )
+    , ("Crypto/Internal/Bytes.hs",
+            [ ModuleName "Data.ByteString"
+            ]
+      )
     ]
 
 data Issue =