fix 910 and 912 build

Author: perturbing

cardano-crypto-class/src/Cardano/Crypto/EllipticCurve/BLS12_381/Internal.hs

@@ -168,6 +168,7 @@ import Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Internal as BSI
 import qualified Data.ByteString.Unsafe as BSU
+import qualified Data.Functor
 import qualified Data.List.NonEmpty as NonEmpty
 import Data.Proxy (Proxy (..))
 import Data.Void
@@ -952,7 +953,7 @@ scalarCanonical scalar =
 blsMSM :: forall curve. BLS curve => NonEmpty.NonEmpty (Point curve, Integer) -> Point curve
 blsMSM psAndSs =
   unsafePerformIO $ do
-    let (points, scalarsAsInt) = NonEmpty.unzip psAndSs
+    let (points, scalarsAsInt) = Data.Functor.unzip psAndSs
         numPoints = length points
         nonEmptyAffinePoints = fmap toAffine points
     nonEmptyScalars <- mapM scalarFromInteger scalarsAsInt