我已将自定义视图设置为import Pipes
import qualified Pipes.Prelude as P
import Pipes.ByteString as PB
import qualified Pipes.Group as PG
import Pipes.GZip
import qualified Data.ByteString.Internal as BS (c2w, w2c)
import System.IO
import Lens.Simple (view) -- or Control.Lens or whatever
import Data.Monoid
main = run >>= mapM_ print
myPipe fileHandle = P.toListM $ accumLines (decompress fileProducer)
where
fileProducer = PB.fromHandle fileHandle
run = do
dat <- withFile "a.gz" ReadMode myPipe
pure dat
-- little library additions
accumLines :: Monad m => Producer ByteString m r -> Producer ByteString m r
accumLines = mconcats . view PB.lines
accumSplits :: Monad m => Char -> Producer ByteString m r -> Producer ByteString m r
accumSplits c = mconcats . view (PB.splits (BS.c2w c))
-- this is convenient, but the operations above could
-- be more rationally implemented using e.g. BL.fromChunks and toListM
mconcats :: (Monad m, Monoid b) => FreeT (Producer b m) m r -> Producer b m r
mconcats = PG.folds (<>) mempty id
的{{1}}
并启用了编辑模式。
现在当它切换到编辑模式时,叠加视图仍然存在。 如何从编辑视图中删除它?
我在官方文档中找不到与此相关的任何内容。
答案 0 :(得分:0)
您是否尝试过 view.removeFromSuperview ?
我认为你已经实现了委托功能
if(isset($_POST)){
if($array){
$doc = $collection->update(
array(
'$set' => array(
'_id' => new MongoId(),
'organization' => $mysql_org_name,
'purch_code' => $mysql_purch_code,
'contentname' => $mysql_order_item_name,
array('upsert' => true)
)
)
);
}
}
这发生在调用该函数之前。
您的自定义视图是否可以检测到其父级已更改并自行删除?