getStylesheet :: (MonadSnap m, HasLessState s, MonadReader s m)
              => ByteString -> m (Maybe ByteString)
getStylesheet stylesheet = do
    (LessState _ mapping) <- asks getLessState
    liftIO $ readMVar mapping >>= return . M.lookup stylesheet


------------------------------------------------------------------------------
-- | A helper function used in the implementation of 'lessServe' and
-- 'lessServeSingle'.
getStylesheet :: (MonadSnap m, HasLessState s, MonadReader s m)
              => ByteString -> m (Maybe ByteString)
getStylesheet stylesheet = do
    (LessState _ mapping) <- asks getLessState
    liftIO $ readMVar mapping >>= return . M.lookup stylesheet


------------------------------------------------------------------------------
-- | A helper function used in the implementation of 'lessServe' and
-- 'lessServeSingle'.
getStylesheet stylesheet = do
    (LessState _ mapping) <- asks getLessState
    liftIO $ readMVar mapping >>= return . M.lookup stylesheet


------------------------------------------------------------------------------
-- | A helper function used in the implementation of 'lessServe' and
-- 'lessServeSingle'.