Merge pull request #3578 from input-output-hk/intricate+mhuesch/CO-35…

…4/nm-word32-to-int32 [CO-354] Make use of an Int32 instead of a Word32 in NetworkMagic
input-output-hk · Sep 12, 2018 · f8ea576 · f8ea576
2 parents 89e651a + 0b4188e
commit f8ea576
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/src/Pos/Core/NetworkMagic.hs b/core/src/Pos/Core/NetworkMagic.hs
@@ -24,7 +24,7 @@ import           Pos.Util.Util (cerealError)
 -- conversion bugs.
 data NetworkMagic
     = NMNothing
-    | NMJust !Word32
+    | NMJust !Int32
     deriving (Show, Eq, Ord, Generic)
 
 instance NFData NetworkMagic
@@ -44,4 +44,4 @@ instance SafeCopy NetworkMagic where
 makeNetworkMagic :: ProtocolMagic -> NetworkMagic
 makeNetworkMagic pm = case getRequiresNetworkMagic pm of
     NMMustBeNothing -> NMNothing
-    NMMustBeJust    -> NMJust (fromIntegral (getProtocolMagic pm))
+    NMMustBeJust    -> NMJust (getProtocolMagic pm)