sanchayanmaity
/
lets-lens
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix imports

This commit is contained in:
Tony Morris 2015-05-19 11:38:31 +10:00
parent ee99bb177e
commit 329762bbb9
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Lets/GetSetLens.hs
View File

@ -37,14 +37,14 @@ module Lets.GetSetLens (
, modifyCityUppercase
) where
import Control.Applicative((<*>))
import Control.Applicative(Applicative((<*>)))
import Data.Bool(bool)
import Data.Char(toUpper)
import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup)
import Data.Set(Set)
import qualified Data.Set as Set(insert, delete, member)
import Lets.Data
import Lets.Data(Person(Person), Locality(Locality), Address(Address))
import Prelude hiding (product)
-- $setup

14
src/Lets/Lens/Lens.hs
View File

@ -73,19 +73,19 @@ module Lets.Lens.Lens (
, intOrLengthEven
) where
import Control.Applicative(Applicative(..))
import Control.Applicative(Applicative((<*>), pure))
import Data.Bool(bool)
import Data.Char(toUpper)
import Data.Foldable(Foldable(..))
import Data.Foldable(Foldable(foldMap))
import Data.Functor((<$>))
import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup)
import Data.Monoid(Monoid(..))
import Data.Monoid(Monoid)
import qualified Data.Set as Set(Set, insert, delete, member)
import Data.Traversable(Traversable(..))
import Lets.Data
import Lets.Lens.Choice
import Lets.Lens.Profunctor
import Data.Traversable(Traversable(traverse))
import Lets.Data(AlongsideLeft(AlongsideLeft, getAlongsideLeft), AlongsideRight(AlongsideRight, getAlongsideRight), Identity(Identity, getIdentity), Const(Const, getConst), Tagged(Tagged, getTagged), IntOr(IntOrIs, IntOrIsNot), IntAnd(IntAnd), Person(Person), Locality(Locality), Address(Address))
import Lets.Lens.Choice(Choice(left, right))
import Lets.Lens.Profunctor(Profunctor(dimap))
import Prelude hiding (product)
-- $setup

2
src/Lets/OpticPolyLens.hs
View File

@ -48,7 +48,7 @@ import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup)
import Data.Set(Set)
import qualified Data.Set as Set(insert, delete, member)
import Lets.Data
import Lets.Data(AlongsideLeft(AlongsideLeft, getAlongsideLeft), AlongsideRight(AlongsideRight, getAlongsideRight), Identity(Identity, getIdentity), Const(Const, getConst), IntAnd(IntAnd), Person(Person), Locality(Locality), Address(Address))
import Prelude hiding (product)
-- $setup

4
src/Lets/StoreLens.hs
View File

@ -44,7 +44,7 @@ module Lets.StoreLens (
, modifyCityUppercase
) where
import Control.Applicative((<*>))
import Control.Applicative(Applicative((<*>)))
import Data.Bool(bool)
import Data.Char(toUpper)
import Data.Functor((<$>))
@ -52,7 +52,7 @@ import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup)
import Data.Set(Set)
import qualified Data.Set as Set(insert, delete, member)
import Lets.Data
import Lets.Data(Store(Store), Person(Person), Locality(Locality), Address(Address))
import Prelude hiding (product)
-- $setup