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

Update src/lib/Witch/Instances.hs

Browse Source
This commit is contained in:
Taylor Fausak 2021-07-10 14:29:58 -05:00 committed by GitHub
parent aac3a0e755
commit 88bc4efd9d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -908,7 +908,7 @@ instance From.From Rational Float where
instance From.From Rational Double where
from = fromRational
-- | TODO
-- | Uses `fromRational` as long as there isn't a loss of precision.
instance Fixed.HasResolution a => TryFrom.TryFrom Rational (Fixed.Fixed a) where
tryFrom = Utility.eitherTryFrom $ \s ->
let t = fromRational s :: Fixed.Fixed a