Value.hs: remove useless usage of ViewPatterns

IntersectMBO · Jan 16, 2025 · 756db56 · 756db56
1 parent 52d881e
commit 756db56
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Value.hs b/cardano-api/internal/Cardano/Api/Value.hs
@@ -5,7 +5,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE ViewPatterns #-}
 
 -- | Currency values
 module Cardano.Api.Value
@@ -387,13 +386,15 @@ instance FromJSON ValueNestedRep where
    where
     parsePid :: (Aeson.Key, Aeson.Value) -> Parser ValueNestedBundle
     parsePid ("lovelace", q) = ValueNestedBundleAda <$> parseJSON q
-    parsePid (Aeson.toText -> pid, quantityBundleJson) = do
+    parsePid (key, quantityBundleJson) = do
       sHash <-
         failEitherWith
           (\e -> "Failure when deserialising PolicyId: " ++ displayError e)
           $ deserialiseFromRawBytesHex AsScriptHash
           $ Text.encodeUtf8 pid
       ValueNestedBundle (PolicyId sHash) <$> parseJSON quantityBundleJson
+     where
+      pid = Aeson.toText key
 
 -- ----------------------------------------------------------------------------
 -- Printing and pretty-printing