
Hello. I have problems with writing next code (using network-conduit) slightly simplified version:
app ad = appSource ad $$ sink where cMap = M.fromList [ ("upload", cmdUpload), ("download", cmdDownload) ] sink = takeLine >>= \c -> case c of Just run -> run ; Nothing -> return () cmdUpload = {- ... -} CB.sinkFile path cmdDownload = do {- code here -} CB.sourceFile path $$ appSink ad -- this will not work because of -- type error
And I'm catching "cannot construct the infinite type". I've found an example in [1], but it's not exactly solves my problem, as all the logic is inside conduit, and it will break upload function. [1] http://www.yesodweb.com/blog/2012/06/conduit-0-5 -- Alexander Vershilov