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

2
src/Agora/SafeMoney/QQ.hs
View file

@ -34,7 +34,7 @@ discrete :: QuasiQuoter
discrete = QuasiQuoter discreteExp errorDiscretePat errorDiscreteType errorDiscreteDiscretelaration
discreteConstant :: forall (moneyClass :: MoneyClass) s. Integer -> Term s (Discrete moneyClass)
discreteConstant n = punsafeCoerce ((pconstant n) :: Term s PInteger)
discreteConstant n = punsafeCoerce (pconstant n :: Term s PInteger)
fixedToInteger :: Integer -> (Integer, Integer) -> Integer
fixedToInteger places (i, f) = i * 10 ^ places + f