Skip to content

Fill out additional docs on things #28

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 9 commits into from
Sep 14, 2020
Merged
Show file tree
Hide file tree
Changes from 7 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions docs/CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -11,5 +11,8 @@ New features:
Bugfixes:

Other improvements:
- Documented additional things (#28 by @JordanMartinez)
- `These` data type and a short description of how type class instances work
- `these` and `fromThese` functions

## [0.0.0] - 2020-01-01
10 changes: 10 additions & 0 deletions src/Data/These.purs
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,10 @@ import Data.Maybe (Maybe(..), isJust)
import Data.Traversable (class Traversable, class Foldable, foldMap, foldl, foldr)
import Data.Tuple (Tuple(..))

-- | Data type isomorphic to `α ∨ β ∨ (α ∧ β)` or
-- | `Either a (Either b (Tuple a b))`.
-- |
-- | Most type classes instances work on the value of the `b` type.
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I'm not sure this line is needed, as this is the same Functor behavior that applies to any type with multiple type arguments.

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I think this line should become the new precedent because its helpful for new learners. However, I don't believe strongly in this either. Thoughts?

Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I would prefer not to include it -- it's more important that new learners are able to associate this structure with Functor (or Bifunctor). For new learners I would rather have a brief example of using map with a These value in the quick start so they can begin to recognize a very wide-ranging pattern.

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Good point. Fixed

data These a b
= This a
| That b
Expand Down Expand Up @@ -98,6 +102,8 @@ instance showThese :: (Show a, Show b) => Show (These a b) where
show (That y) = "(That " <> show y <> ")"
show (Both x y) = "(Both " <> show x <> " " <> show y <> ")"

-- | Given functions to handle each constructor, collapse a `These` value
-- | into single value.
these :: forall a b c. (a -> c) -> (b -> c) -> (a -> b -> c) -> These a b -> c
these l _ _ (This a) = l a
these _ r _ (That x) = r x
Expand All @@ -119,6 +125,10 @@ maybeThese = case _, _ of
Just a, Just b -> Just (Both a b)
Nothing, Nothing -> Nothing

-- | Takes two default values and a `These` value. If the `These` value is
-- | `This` or `That`, the value wrapped in the `These` value and its
-- | corresponding default value are wrapped into a `Tuple`.
-- | Otherwise, the values stored in the `Both` is rewrapped into a `Tuple`.
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
-- | corresponding default value are wrapped into a `Tuple`.
-- | Otherwise, the values stored in the `Both` is rewrapped into a `Tuple`.
-- | corresponding default value are wrapped into a `Tuple`. Otherwise, the
-- | values stored in the `Both` are re-wrapped into a `Tuple`.

Minor typo here ("values" -> "are")

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Fixed

fromThese :: forall a b. a -> b -> These a b -> Tuple a b
fromThese _ x (This a) = Tuple a x
fromThese a _ (That x) = Tuple a x
Expand Down