more specific replace/void for option/result

src/func/classes/option.rs

@@ -21,8 +21,19 @@ impl Functor for OptionClass {
         fa.map(f)
     }
 
-    fn replace<'a, A: 'a, B: 'a>(fa: Self::F<'a, A>, b: B) -> Self::F<'a, B> {
-        fa.map(|_| b)
+    fn replace<'a, A: 'a, B: 'a>(fa: Self::F<'a, A>, b: B) -> Self::F<'a, B>
+    where
+        Self: 'a,
+    {
+        fa?;
+        Self::pure(b)
+    }
+
+    fn void<'a, A: 'a>(fa: Self::F<'a, A>) -> Self::F<'a, ()>
+        where
+            Self: 'a, {
+        fa?;
+        Self::pure(())
     }
 }
 

src/func/classes/result.rs

@@ -28,7 +28,15 @@ impl<E> Functor for ResultClass<E> {
     where
         Self: 'a,
     {
-        fa.map(|_| b)
+        fa?;
+        Self::pure(b)
+    }
+
+    fn void<'a, A: 'a>(fa: Self::F<'a, A>) -> Self::F<'a, ()>
+        where
+            Self: 'a, {
+        fa?;
+        Self::pure(())
     }
 }