content: -- | Checkpoints in the blockchain (every 1000th blocks)
  
  {-# LANGUAGE CPP #-}
  module Bitcoin.BlockChain.Checkpoint where
  
  --6-----------------------------------------------------------------------------
  
  import Bitcoin.Protocol.Hash
  
  --10----------------------------------------------------------------------------
  
  #ifndef WITH_TESTNET
  
  --14----------------------------------------------------------------------------
  -- * the real network
  
  theGenesisBlock :: Hash256
  theGenesisBlock = hash256FromTextBE "000000000019d6689c085ae165831e934ff763ae46a2a6c172b3f1b60a8ce26f"
  
  theCheckpoints :: [(Int,Hash256)]
  theCheckpoints =
    [ (0     , hash256FromTextBE "000000000019d6689c085ae165831e934ff763ae46a2a6c172b3f1b60a8ce26f" )
    , (248000 , hash256FromTextBE "000000000000004d945017c14b75a3a58a2aa6772cacbfcaf907b3bee6d7f344" )
    ]
  
  --273---------------------------------------------------------------------------
  
  #else
  
  --277---------------------------------------------------------------------------
  -- * testnet3
  
  theGenesisBlock :: Hash256
  theGenesisBlock = hash256FromTextBE "000000000933ea01ad0ee984209779baaec3ced90fa3f408719526f8d77f4943"
  
  theCheckpoints :: [(Int,Hash256)]
  theCheckpoints =
    [ (0     , hash256FromTextBE "000000000933ea01ad0ee984209779baaec3ced90fa3f408719526f8d77f4943" )
    , (97000 , hash256FromTextBE "0000000000096581c7c0fe4d15ea0212f1087fc79f3735a892ee262c384b3741" )
    ]
  
  #endif
  
  --387---------------------------------------------------------------------------
  
  