hlint

Author: wismill

unicode-data-security/bench/Main.hs

@@ -26,12 +26,12 @@ main = defaultMain
             ]
         , bgroup "Confusables"
             [ bgroup' "confusablePrototype"
-                [ Bench "CString" (\c -> Ptr (Confusables.confusablePrototype c))
+                [ Bench "CString" (Ptr . Confusables.confusablePrototype)
                 , Bench "String"  Security.confusablePrototype
                 ]
             -- , benchNF "prototype" Security.prototype
             , bgroup' "intentionalConfusables"
-                [ Bench "CString" (\c -> Ptr (Confusables.intentionalConfusables c))
+                [ Bench "CString" (Ptr . Confusables.intentionalConfusables)
                 , Bench "String"  Security.intentionalConfusables
                 ]
             , benchNF "isIntentionallyConfusable" Security.intentionalConfusables

unicode-data-security/test/Unicode/Char/Identifiers/SecuritySpec.hs

@@ -60,6 +60,6 @@ spec = do
             -- [TODO] more invariants
             traverse_ check (enumFromTo minBound maxBound)
     it "Identifier status is consistent with identifier types" do
-        let checkChar c = all (== isAllowedInIdentifier c)
-                              (isIdentifierTypeAllowed <$> identifierTypes c)
+        let checkChar c = all ((== isAllowedInIdentifier c) . isIdentifierTypeAllowed)
+                              (identifierTypes c)
         traverse_ (`shouldSatisfy` checkChar) (enumFromTo minBound maxBound)

unicode-data/lib/Unicode/Char/General/Blocks.hs

@@ -1,7 +1,3 @@
-{-# LANGUAGE PatternSynonyms #-}
-{-# LANGUAGE ViewPatterns #-}
-{-# LANGUAGE DeriveGeneric #-}
-
 -- |
 -- Module      : Unicode.Char.General.Blocks
 -- Copyright   : (c) 2020 Composewell Technologies and Contributors