Skip to content
Browse files

removed unused imports. fixed inline pragma

  • Loading branch information...
1 parent 99d9b94 commit 803e072efdc1f1fe80ceefc4d770b166b7d9a828 @ekmett committed Aug 15, 2012
Showing with 1 addition and 4 deletions.
  1. +1 −4 src/Control/Lens/Type.hs
View
5 src/Control/Lens/Type.hs
@@ -104,7 +104,6 @@ module Control.Lens.Type
import Control.Applicative as Applicative
import Control.Lens.Internal
-import Control.Lens.Setter
import Control.Monad
import Control.Monad.State.Class as State
import Control.Monad.Trans.State.Lazy as Lazy
@@ -114,12 +113,10 @@ import Control.Monad.Trans.Writer.Strict as Strict
import Control.Monad.Trans.RWS.Lazy as Lazy
import Control.Monad.Trans.RWS.Strict as Strict
import Control.Monad.Trans.Reader
-import Control.Monad.Trans.Cont
import Control.Monad.Trans.Error
import Control.Monad.Trans.List
import Control.Monad.Trans.Identity
import Control.Monad.Trans.Maybe
-import Data.Functor.Identity
import Data.Monoid
infixr 4 %%~
@@ -405,7 +402,7 @@ cloneLens :: Functor f
-> (c -> f d) -> a -> f b
cloneLens f cfd a = case f (IndexedStore id) a of
IndexedStore db c -> db <$> cfd c
-{-# INLINE clone #-}
+{-# INLINE cloneLens #-}
-------------------------------------------------------------------------------
-- Overloading function application

0 comments on commit 803e072

Please sign in to comment.
Something went wrong with that request. Please try again.