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

make hlint happy

Browse source
This commit is contained in:
Emily Martins 2022-02-25 14:43:28 +01:00
parent 3a1fba39b9
commit e4d1fdfbed
8 changed files with 45 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Agora/SafeMoney.hs
View file

@ -85,8 +85,8 @@ valueDiscrete ::
valueDiscrete = phoistAcyclic $
plam $ \f ->
pcon . Discrete $
passetClassValueOf # (pconstant $ fromString $ symbolVal $ Proxy @ac)
# (pconstant $ fromString $ symbolVal $ Proxy @n)
passetClassValueOf # pconstant (fromString $ symbolVal $ Proxy @ac)
# pconstant (fromString $ symbolVal $ Proxy @n)
# f
-- NOTE: discreteValue after valueDiscrete is loses information
@ -103,8 +103,8 @@ discreteValue = phoistAcyclic $
plam $ \f -> pmatch f $ \case
Discrete p ->
psingletonValue
# (pconstant $ fromString $ symbolVal $ Proxy @ac)
# (pconstant $ fromString $ symbolVal $ Proxy @n)
# pconstant (fromString $ symbolVal $ Proxy @ac)
# pconstant (fromString $ symbolVal $ Proxy @n)
# p
-- | Create a value with a single asset class