import Aftok.Zcash (ZEC(..), toZatoshi)

import Aftok.Zcash (ZEC(..), toZatoshi, ZPrec)

import Data.Maybe (Maybe(..), maybe)

import Data.Maybe (Maybe(..), maybe, fromMaybe)

  , amount :: Maybe ZEC

  , amount :: Maybe String

data Output 

data Output

  render st = 

  render st =

                        , P.value (maybe "" (Fixed.toString <<< unwrap) st.amount)

                        , P.value (fromMaybe "" st.amount)

    err str = 
      [ HH.div_ 
        [ HH.span 
          [ P.classes (ClassName <$> [ "badge", "badge-danger-soft" ]) ] [ HH.text str ] ] 

    err str =
      [ HH.div_
        [ HH.span
          [ P.classes (ClassName <$> [ "badge", "badge-danger-soft" ]) ] [ HH.text str ] ]

      SetBillingAmount amt ->

      SetBillingAmount amt -> do
        curAmount <- H.gets (_.amount)

             (Just zec) -> H.modify_ (_ { amount = Just (ZEC zec) })
             (Nothing) -> pure unit

             (Just (_ :: Fixed.Fixed ZPrec)) ->
                H.modify_ (_ { amount = Just amt })
             (Nothing) ->
                H.modify_ (_ { amount = curAmount })

        zatsV <- V <<< maybe (Left [AmountField]) (Right <<< toZatoshi) <$> H.gets (_.amount)

        zecStr <- (Fixed.fromString =<< _) <$> H.gets (_.amount)
        zatsV <- pure $ V (maybe (Left [AmountField]) (Right <<< toZatoshi <<< ZEC) zecStr)

import Data.Fixed (Fixed, P1000000, TenTimes, fromInt, numerator, fromBigInt) 

import Data.Fixed (Fixed, P1000000, TenTimes, fromInt, numerator, fromBigInt)

toZEC (Zatoshi z) = 

toZEC (Zatoshi z) =

toZatoshi (ZEC z) =  

toZatoshi (ZEC z) =