diff --git a/src/lib/Witch/Instances.hs b/src/lib/Witch/Instances.hs
index 09c6c9a..5734624 100644
--- a/src/lib/Witch/Instances.hs
+++ b/src/lib/Witch/Instances.hs
@@ -805,7 +805,7 @@ instance TryCast.TryCast Float Rational where
       then if s > 0 then Left Exception.Overflow else Left Exception.Underflow
       else Right $ toRational s
 
--- | Uses 'Float.double2Float'.
+-- | Uses 'Float.float2Double'.
 instance Cast.Cast Float Double where
   cast = Float.float2Double