Fix haddock example

TotallyNotChase · Aug 25, 2021 · 5920208 · 5920208
1 parent 79b87ab
commit 5920208
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Valida/Combinators.hs b/src/Valida/Combinators.hs
@@ -584,16 +584,16 @@ optionally (Validator v) = Validator $ maybe (Success Nothing) (fmap Just . v)
 
 Yields 'Success' when input is 'Nothing', and wrapped around the default value.
 
-@vald \`withDefault\` deflt = 'Data.Maybe.fromMaybe' deflt <$> 'optionally' vald@
+@vald \`withDefault\` deflt = 'Data.Maybe.fromMaybe' deflt '<$>' 'optionally' vald@
 
 ==== __Examples__
 
 >>> runValidator (failureIf even "Even" `withDefault` 0) (Just 5)
-Success (Just 5)
+Success 5
 >>> runValidator (failureIf even "Even" `withDefault` 0) (Just 6)
 Failure ("Even" :| [])
 >>> runValidator (failureIf even "Even" `withDefault` 0) Nothing
-Success Nothing
+Success 0
 -}
 withDefault :: Validator e inp a -> a -> Validator e (Maybe inp) a
 withDefault (Validator v) deflt = Validator $ maybe (Success deflt) v