This commit is contained in:
Taylor Fausak 2021-04-26 08:34:05 -04:00 committed by GitHub
parent 9f5663e1ef
commit 8c36a3621e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -805,7 +805,7 @@ instance TryCast.TryCast Float Rational where
then if s > 0 then Left Exception.Overflow else Left Exception.Underflow then if s > 0 then Left Exception.Overflow else Left Exception.Underflow
else Right $ toRational s else Right $ toRational s
-- | Uses 'Float.double2Float'. -- | Uses 'Float.float2Double'.
instance Cast.Cast Float Double where instance Cast.Cast Float Double where
cast = Float.float2Double cast = Float.float2Double