Skip to content

Commit 05ff3fe

Browse files
committed
WIP [kowainik#227] Create Relude.Extra module
This is currently WIP as there are still errors while building. Maybe someone can help me with that? I don't know how to fix these: ``` The class method signature for β€˜...’ lacks an accompanying binding ``` or ``` β€˜...’ is not a (visible) method of class β€˜...’ ``` closes kowainik#227
1 parent bfb5f60 commit 05ff3fe

File tree

3 files changed

+46
-2
lines changed

3 files changed

+46
-2
lines changed

β€Žsrc/Relude/Extra.hs

+37
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,37 @@
1+
{-# LANGUAGE Safe #-}
2+
3+
{- |
4+
Copyright: (c) 019 Kowainik
5+
SPDX-License-Identifier: MIT
6+
Maintainer: Kowainik <xrom.xkov@gmail.com>
7+
8+
This module exports all extra-related stuff.
9+
-}
10+
11+
module Relude.Extra
12+
( module Relude.Extra.Bifunctor
13+
, module Relude.Extra.CallStack
14+
, module Relude.Extra.Enum
15+
, module Relude.Extra.Foldable
16+
, module Relude.Extra.Foldable1
17+
, module Relude.Extra.Group
18+
, module Relude.Extra.Lens
19+
, module Relude.Extra.Map
20+
, module Relude.Extra.Newtype
21+
, module Relude.Extra.Tuple
22+
, module Relude.Extra.Type
23+
, module Relude.Extra.Validation
24+
) where
25+
26+
import Relude.Extra.Bifunctor
27+
import Relude.Extra.CallStack
28+
import Relude.Extra.Enum
29+
import Relude.Extra.Foldable
30+
import Relude.Extra.Foldable1
31+
import Relude.Extra.Group
32+
import Relude.Extra.Lens
33+
import Relude.Extra.Map
34+
import Relude.Extra.Newtype
35+
import Relude.Extra.Tuple
36+
import Relude.Extra.Type
37+
import Relude.Extra.Validation

β€Žsrc/Relude/Extra/Bifunctor.hs

+3-1
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,9 @@ module Relude.Extra.Bifunctor
2525
, secondF
2626
) where
2727

28-
import Relude
28+
import Relude.Functor (Bifunctor, Functor, second, fmap, first)
29+
import Relude.Function ((.))
30+
import Relude.Extra.Validation (bimap)
2931

3032
{- | Maps a function over both elements of a bifunctor.
3133

β€Žsrc/Relude/Extra/Validation.hs

+6-1
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,12 @@ module Relude.Extra.Validation
4141

4242
import GHC.TypeLits (ErrorMessage (..), TypeError)
4343

44-
import Relude
44+
import Relude.Base (Constraint, Eq, Ord, Show)
45+
import Relude.Functor (Functor, Bifunctor)
46+
import Relude.Applicative (Alternative, Applicative)
47+
import Relude.Monad (Monad, Either(Left, Right))
48+
import Relude.Monoid (Monoid, Semigroup)
49+
import Relude.Foldable (Bitraversable, Bifoldable, Foldable, Traversable)
4550

4651
-- >>> $setup
4752
-- >>> import Relude

0 commit comments

Comments
Β (0)