diff --git a/src/Lets/GetSetLens.hs b/src/Lets/GetSetLens.hs index 0ecb04e..811f5b5 100644 --- a/src/Lets/GetSetLens.hs +++ b/src/Lets/GetSetLens.hs @@ -44,7 +44,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(Person(Person), Locality(Locality), Address(Address), bool) +import Lets.Data(Person(Person), Locality(Locality), Address(Address)) import Prelude hiding (product) -- $setup diff --git a/src/Lets/Lens.hs b/src/Lets/Lens.hs index 20d2a07..5262cae 100644 --- a/src/Lets/Lens.hs +++ b/src/Lets/Lens.hs @@ -82,7 +82,7 @@ import qualified Data.Map as Map(insert, delete, lookup) import Data.Monoid(Monoid) import qualified Data.Set as Set(Set, insert, delete, member) 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), bool) +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.Choice(Choice(left, right)) import Lets.Profunctor(Profunctor(dimap)) import Prelude hiding (product) diff --git a/src/Lets/OpticPolyLens.hs b/src/Lets/OpticPolyLens.hs index 943135a..e2e483d 100644 --- a/src/Lets/OpticPolyLens.hs +++ b/src/Lets/OpticPolyLens.hs @@ -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(AlongsideLeft(AlongsideLeft, getAlongsideLeft), AlongsideRight(AlongsideRight, getAlongsideRight), Identity(Identity, getIdentity), Const(Const, getConst), IntAnd(IntAnd), Person(Person), Locality(Locality), Address(Address), bool) +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