cli: admin: directly use election_hash

diff --git a/hjugement-cli/src/Hjugement/CLI/Administrator.hs b/hjugement-cli/src/Hjugement/CLI/Administrator.hs
index fbd6fb1c054bd28bd7483e0a6a7404f83932230b..9e0f0a6d92c764c28d1258d0a89132f61a22c860 100644 (file)
--- a/hjugement-cli/src/Hjugement/CLI/Administrator.hs
+++ b/hjugement-cli/src/Hjugement/CLI/Administrator.hs
@@ -21,8 +21,6 @@ import Data.Semigroup (Semigroup(..))
 import Data.Text (Text)
 import Symantic.CLI as CLI
 import Text.Show (Show(..))
-import qualified Data.Aeson as JSON
-import qualified Data.ByteString.Lazy as BSL
 import qualified Data.List as List
 import qualified Data.Text as Text
 import qualified Pipes as Pip
@@ -160,7 +158,7 @@ run_administrator_election
                saveJSON glob (global_dir FP.</> "election.json") elec
                outputInfo glob $
                        "created election with "<>Doc.from (show election_uuid)<>
-                       " and "<>Doc.from (show (VP.base64SHA256 (BSL.toStrict (JSON.encode elec))))
+                       " and "<>Doc.from (show (VP.election_hash elec))
 
 -- ** tally
 api_administrator_tally =