sink :: Int -> Double -> Sink L1NormInfo IO [(Int,Double)]
sink n m = do
  CL.drop n
  xs <- CL.consume
  return $!
    L.map
      (\(L1NormInfo t _ _ e) ->
         if e > m
           then (t, m)
           else (t, e))
      xs
sink :: Int -> Double -> Sink L1NormInfo IO [(Int,Double)]
sink n m = do
  CL.drop n
  xs <- CL.consume
  return $!
    L.map
      (\(L1NormInfo t _ _ e) ->
         if e > m
           then (t, m)
           else (t, e))
      xs
sink n m = do
  CL.drop n
  xs <- CL.consume
  return $!
    L.map
      (\(L1NormInfo t _ _ e) ->
         if e > m
           then (t, m)
           else (t, e))
      xs