Skip to content
This repository was archived by the owner on Oct 4, 2020. It is now read-only.

Commit fe1172f

Browse files
committed
Merge pull request #3 from telser/purescript-0.8-warnings
Fix warnings generated by purescript-0.8.0
2 parents 529f35f + 07734cb commit fe1172f

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/Data/Inject.purs

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@
22
-- | when working with coproducts of functors.
33

44
module Data.Inject
5-
( Inject
5+
( class Inject
66
, inj, prj
77
) where
88

9-
import Prelude
9+
import Prelude (const, (<<<), id)
1010

1111
import Data.Either (Either(..))
1212
import Data.Functor.Coproduct (Coproduct(..), coproduct)
@@ -16,15 +16,15 @@ import Data.Maybe (Maybe(..))
1616
-- |
1717
-- | Specifically, an instance `Inject f g` indicates that `g` is isomorphic to
1818
-- | a coproduct of `f` and some third functor.
19-
-- |
19+
-- |
2020
-- | Laws:
21-
-- |
21+
-- |
2222
-- | - `prj g = Just f` if and only if `inj f = g`
2323
class Inject f g where
2424
inj :: forall a. f a -> g a
2525
prj :: forall a. g a -> Maybe (f a)
2626

27-
-- | Any functor is isomorphic to the coproduct of itself with the
27+
-- | Any functor is isomorphic to the coproduct of itself with the
2828
-- | constantly-`Void` functor.
2929
instance injectReflexive :: Inject f f where
3030
inj = id

0 commit comments

Comments
 (0)