module Deque.Lazy.Reader where
import Deque.Lazy (Deque)
import qualified Deque.Lazy as Deque
import Deque.Prelude hiding (dropWhile, head, init, last, null, reverse, tail, takeWhile)
import qualified Deque.Prelude as Prelude
map :: (MonadReader (Deque a) m) => (a -> b) -> m (Deque b)
map :: forall a (m :: * -> *) b.
MonadReader (Deque a) m =>
(a -> b) -> m (Deque b)
map a -> b
f = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap a -> b
f)
prepend :: (MonadReader (Deque a) m) => Deque a -> m (Deque a)
prepend :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
Deque a -> m (Deque a)
prepend Deque a
deque = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (Deque a
deque forall a. Semigroup a => a -> a -> a
<>)
append :: (MonadReader (Deque a) m) => Deque a -> m (Deque a)
append :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
Deque a -> m (Deque a)
append Deque a
deque = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. Semigroup a => a -> a -> a
<> Deque a
deque)
cons :: (MonadReader (Deque a) m) => a -> m (Deque a)
cons :: forall a (m :: * -> *). MonadReader (Deque a) m => a -> m (Deque a)
cons a
a = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. a -> Deque a -> Deque a
Deque.cons a
a)
snoc :: (MonadReader (Deque a) m) => a -> m (Deque a)
snoc :: forall a (m :: * -> *). MonadReader (Deque a) m => a -> m (Deque a)
snoc a
a = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. a -> Deque a -> Deque a
Deque.snoc a
a)
reverse :: (MonadReader (Deque a) m) => m (Deque a)
reverse :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Deque a)
reverse = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Deque a
Deque.reverse
shiftLeft :: (MonadReader (Deque a) m) => m (Deque a)
shiftLeft :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Deque a)
shiftLeft = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Deque a
Deque.shiftLeft
shiftRight :: (MonadReader (Deque a) m) => m (Deque a)
shiftRight :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Deque a)
shiftRight = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Deque a
Deque.shiftRight
filter :: (MonadReader (Deque a) m) => (a -> Bool) -> m (Deque a)
filter :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
(a -> Bool) -> m (Deque a)
filter a -> Bool
predicate = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. (a -> Bool) -> Deque a -> Deque a
Deque.filter a -> Bool
predicate)
take :: (MonadReader (Deque a) m) => Int -> m (Deque a)
take :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
Int -> m (Deque a)
take = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. forall a. Int -> Deque a -> Deque a
Deque.take
drop :: (MonadReader (Deque a) m) => Int -> m (Deque a)
drop :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
Int -> m (Deque a)
drop = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall {k} (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. forall a. Int -> Deque a -> Deque a
Deque.drop
takeWhile :: (MonadReader (Deque a) m) => (a -> Bool) -> m (Deque a)
takeWhile :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
(a -> Bool) -> m (Deque a)
takeWhile a -> Bool
predicate = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. (a -> Bool) -> Deque a -> Deque a
Deque.takeWhile a -> Bool
predicate)
dropWhile :: (MonadReader (Deque a) m) => (a -> Bool) -> m (Deque a)
dropWhile :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
(a -> Bool) -> m (Deque a)
dropWhile a -> Bool
predicate = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. (a -> Bool) -> Deque a -> Deque a
Deque.dropWhile a -> Bool
predicate)
span :: (MonadReader (Deque a) m) => (a -> Bool) -> m (Deque a, Deque a)
span :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
(a -> Bool) -> m (Deque a, Deque a)
span a -> Bool
predicate = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader (forall a. (a -> Bool) -> Deque a -> (Deque a, Deque a)
Deque.span a -> Bool
predicate)
uncons :: (MonadReader (Deque a) m) => m (Maybe a, Deque a)
uncons :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
m (Maybe a, Deque a)
uncons =
forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader
( \Deque a
deque -> case forall a. Deque a -> Maybe (a, Deque a)
Deque.uncons Deque a
deque of
Maybe (a, Deque a)
Nothing -> (forall a. Maybe a
Nothing, Deque a
deque)
Just (a
a, Deque a
newDeque) -> (forall a. a -> Maybe a
Just a
a, Deque a
newDeque)
)
unsnoc :: (MonadReader (Deque a) m) => m (Maybe a, Deque a)
unsnoc :: forall a (m :: * -> *).
MonadReader (Deque a) m =>
m (Maybe a, Deque a)
unsnoc =
forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader
( \Deque a
deque -> case forall a. Deque a -> Maybe (a, Deque a)
Deque.unsnoc Deque a
deque of
Maybe (a, Deque a)
Nothing -> (forall a. Maybe a
Nothing, Deque a
deque)
Just (a
a, Deque a
newDeque) -> (forall a. a -> Maybe a
Just a
a, Deque a
newDeque)
)
null :: (MonadReader (Deque a) m) => m Bool
null :: forall a (m :: * -> *). MonadReader (Deque a) m => m Bool
null = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Bool
Deque.null
length :: (MonadReader (Deque a) m) => m Int
length :: forall a (m :: * -> *). MonadReader (Deque a) m => m Int
length = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall (t :: * -> *) a. Foldable t => t a -> Int
Prelude.length
head :: (MonadReader (Deque a) m) => m (Maybe a)
head :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Maybe a)
head = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Maybe a
Deque.head
last :: (MonadReader (Deque a) m) => m (Maybe a)
last :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Maybe a)
last = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Maybe a
Deque.last
tail :: (MonadReader (Deque a) m) => m (Deque a)
tail :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Deque a)
tail = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Deque a
Deque.tail
init :: (MonadReader (Deque a) m) => m (Deque a)
init :: forall a (m :: * -> *). MonadReader (Deque a) m => m (Deque a)
init = forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
reader forall a. Deque a -> Deque a
Deque.init