Merge pull request #3172 from input-output-hk/revert-cdec-299

Revert "[CDEC-299] Remove field accessors for `GenesisConfiguration`"

Author: rvl

core/src/Pos/Core/Configuration/Core.hs

@@ -41,12 +41,12 @@ data GenesisConfiguration
       -- | Genesis from a 'GenesisSpec'.
     = GCSpec !GenesisSpec
       -- | 'GenesisData' is stored in a file.
-    | GCSrc !FilePath
+    | GCSrc { gcsFile :: !FilePath
             -- ^ Path to file where 'GenesisData' is stored. Must be
             -- in JSON, not necessary canonical.
-            !(Hash Raw)
+            , gcsHash :: !(Hash Raw)
             -- ^ Hash of canonically encoded 'GenesisData'.
-
+            }
     deriving (Show)
 
 data CoreConfiguration = CoreConfiguration