[CDEC-484] Reunite orphans from Pos.Chain.Ssc.Error.Verify

chain/src/Pos/Chain/Ssc/Error/Verify.hs

@@ -1,23 +1,19 @@
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 -- | Possible failures during SSC verification.
 
 module Pos.Chain.Ssc.Error.Verify
        ( SscVerifyError (..)
        , sscIsCriticalVerifyError
        ) where
 
+import           Universum
+
 import           Formatting (bprint, build, ords, stext, (%))
 import qualified Formatting.Buildable
 import           Serokell.Util (listJson)
-import           Universum
 
 import           Pos.Core (EpochIndex, SlotId, StakeholderId)
 import           Pos.Core.Ssc (VssCertificate)
 
-instance Buildable (StakeholderId, VssCertificate) where
-    build (a, b) = bprint ("(id: "%build%" , cert: "%build%")") a b
-
 type NEStIds = NonEmpty StakeholderId
 
 -- | Type for verification error

core/src/Pos/Core/Ssc/VssCertificate.hs

@@ -23,12 +23,12 @@ import           Data.Hashable (Hashable (..))
 import           Data.SafeCopy (base, deriveSafeCopySimple)
 import           Formatting (bprint, build, int, (%))
 import qualified Formatting.Buildable as Buildable
-import           Pos.Core.Common (StakeholderId, addressHash)
 import           Text.JSON.Canonical (FromJSON (..), Int54, JSValue (..),
                      ReportSchemaErrors, ToJSON (..), fromJSField, mkObject)
 
 import           Pos.Binary.Class (AsBinary, Bi (..), encodeListLen,
                      enforceSize)
+import           Pos.Core.Common (StakeholderId, addressHash)
 import           Pos.Core.Genesis.Canonical ()
 import           Pos.Core.Slotting (EpochIndex)
 import           Pos.Crypto (ProtocolMagic, PublicKey, SecretKey,
@@ -75,6 +75,9 @@ instance Buildable VssCertificate where
     build UnsafeVssCertificate {..} = bprint
         ("vssCert:"%build%":"%int) vcSigningKey vcExpiryEpoch
 
+instance Buildable (StakeholderId, VssCertificate) where
+    build (a, b) = bprint ("(id: "%build%" , cert: "%build%")") a b
+
 instance Hashable VssCertificate where
     hashWithSalt s UnsafeVssCertificate{..} =
         hashWithSalt s (vcExpiryEpoch, vcVssKey, vcSigningKey, vcSignature)