使用haskell管道库融合两个输入文件

Question

我试图将两个输入文件与conduit融合。

file1.dat：

META 1
META 2
META 3
TS 1
1
2
3
TS 2
3
4
5

File2.DAT的：

META 1
META 2
META 3
TS 1
0.1
0.0
0.3
TS 2
0.1
0.2
0.1

我需要的是一个函数来源和融合输入文件，丢弃元数据并合并TS - 行之间的值

sourceFiles :: FilePath -> FilePath -> ConduitM i (Double, Double) m ()
sourceFiles f1 f2 = undefined

组合（例如+,-,*）看起来像

combine :: (Double -> Double-> Double) -> (Double, Double) -> Double
combine f (x,y) = f x y

如果有人能给我一个如何从sourceFiles开始的提示，我将非常感激。

修改

作为＆＃39;加法组合＆＃39;的输出文件。我希望：

output.dat：

META 1 
META 2
META 3
TS 1
1.1
2.0
3.3
TS 2
3.1
4.2
5.1