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

fix imports

Browse source
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 , modifyCityUppercase
) where ) where
import Control.Applicative((<*>)) import Control.Applicative(Applicative((<*>)))
import Data.Bool(bool) import Data.Bool(bool)
import Data.Char(toUpper) import Data.Char(toUpper)
import Data.Map(Map) import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup) import qualified Data.Map as Map(insert, delete, lookup)
import Data.Set(Set) import Data.Set(Set)
import qualified Data.Set as Set(insert, delete, member) 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) import Prelude hiding (product)
-- $setup -- $setup

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

@ -73,19 +73,19 @@ module Lets.Lens.Lens (
, intOrLengthEven , intOrLengthEven
) where ) where
import Control.Applicative(Applicative(..)) import Control.Applicative(Applicative((<*>), pure))
import Data.Bool(bool) import Data.Bool(bool)
import Data.Char(toUpper) import Data.Char(toUpper)
import Data.Foldable(Foldable(..)) import Data.Foldable(Foldable(foldMap))
import Data.Functor((<$>)) import Data.Functor((<$>))
import Data.Map(Map) import Data.Map(Map)
import qualified Data.Map as Map(insert, delete, lookup) 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 qualified Data.Set as Set(Set, insert, delete, member)
import Data.Traversable(Traversable(..)) import Data.Traversable(Traversable(traverse))
import Lets.Data 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 import Lets.Lens.Choice(Choice(left, right))
import Lets.Lens.Profunctor import Lets.Lens.Profunctor(Profunctor(dimap))
import Prelude hiding (product) import Prelude hiding (product)
-- $setup -- $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 qualified Data.Map as Map(insert, delete, lookup)
import Data.Set(Set) import Data.Set(Set)
import qualified Data.Set as Set(insert, delete, member) 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) import Prelude hiding (product)
-- $setup -- $setup

4
src/Lets/StoreLens.hs
View file

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