tfausak/witch
1
1
Fork 0
mirror of https://github.com/tfausak/witch.git synced 2024-11-23 00:06:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix monomorphism warning

Browse Source
This commit is contained in:
Taylor Fausak 2021-07-10 15:36:17 -04:00
parent 88bc4efd9d
commit c6fe7fbc9f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/Witch/Instances.hs
View File

@ -911,7 +911,9 @@ instance From.From Rational Double where
-- | Uses `fromRational` as long as there isn't a loss of precision. -- | Uses `fromRational` as long as there isn't a loss of precision.
instance Fixed.HasResolution a => TryFrom.TryFrom Rational (Fixed.Fixed a) where instance Fixed.HasResolution a => TryFrom.TryFrom Rational (Fixed.Fixed a) where
tryFrom = Utility.eitherTryFrom $ \s -> tryFrom = Utility.eitherTryFrom $ \s ->
let t = fromRational s :: Fixed.Fixed a let
t :: Fixed.Fixed a
t = fromRational s
in if toRational t == s in if toRational t == s
then Right t then Right t
else Left Exception.LossOfPrecision else Left Exception.LossOfPrecision