Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

add missing doc strings

Browse source
This commit is contained in:
fanghr 2022-05-20 01:10:24 +08:00
parent ec48f4de95
commit 67a5f3a54d
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora-sample/Sample/Shared.hs
View file

@ -199,7 +199,10 @@ proposalTimingConfig =
, executingTime = 3000 , executingTime = 3000
} }
-- FIXME: should be removed. {- | Hard coded starting time of every propoal.
This will be calculated by the governor in the future.
FIXME: Remove this.
-}
tmpProposalStartingTime :: ProposalStartingTime tmpProposalStartingTime :: ProposalStartingTime
tmpProposalStartingTime = ProposalStartingTime 0 tmpProposalStartingTime = ProposalStartingTime 0

4
agora-testlib/Test/Util.hs
View file

@ -245,6 +245,10 @@ closedBoundedInterval from to = PlutusTx.intersection (PlutusTx.from from) (Plut
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
{- | / O(n) /. The expression @'updateMap' f k v@ will update the value @x@ at key @k@.
If @f x@ is Nothing, the key-value pair will be deleted from the map, otherwise the
value will be updated.
-}
updateMap :: Eq k => (v -> Maybe v) -> k -> AssocMap.Map k v -> AssocMap.Map k v updateMap :: Eq k => (v -> Maybe v) -> k -> AssocMap.Map k v -> AssocMap.Map k v
updateMap f k = updateMap f k =
AssocMap.mapMaybeWithKey AssocMap.mapMaybeWithKey