bolt9

Lightning feature flags, per BOLT #9 (docs.ppad.tech/bolt9).
git clone git://git.ppad.tech/bolt9.git
Log | Files | Refs | README | LICENSE

Weight.hs (611B)

      1 module Main where
      2 
      3 import Weigh
      4 import qualified Lightning.Protocol.BOLT9 as B9
      5 import Fixtures
      6 
      7 main :: IO ()
      8 main = mainWith $ do
      9   func "FeatureVector (5 features)" mkFiveFeatures ()
     10   func "validateLocal" (B9.validateLocal B9.Init) validFV
     11   func "listFeatures" B9.listFeatures validFV
     12 
     13 -- | Create a FeatureVector with 5 features set.
     14 mkFiveFeatures :: () -> B9.FeatureVector
     15 mkFiveFeatures _ =
     16     B9.setBit 15   -- payment_secret
     17   $ B9.setBit 17   -- basic_mpp
     18   $ B9.setBit 23   -- option_anchors
     19   $ B9.setBit 25   -- option_route_blinding
     20   $ B9.setBit 27   -- option_shutdown_anysegwit
     21   $ B9.empty