turnoversL :: (Throws InvalidPath l,
               Throws NoSuchRate l,
               Throws InternalError l)
           => [Query] -> [TOptions] -> Maybe Path -> Ledger l ()
turnoversL queries options mbPath = do
    coa <- getCoAItemL mbPath
    case coa of
      Leaf {..} -> byOneAccount queries options leafData
      _ -> forM_ queries $ \qry -> do
                outputText $ showInterval qry
                turnovers qry options coa
turnoversL :: (Throws InvalidPath l,
               Throws NoSuchRate l,
               Throws InternalError l)
           => [Query] -> [TOptions] -> Maybe Path -> Ledger l ()
turnoversL queries options mbPath = do
    coa <- getCoAItemL mbPath
    case coa of
      Leaf {..} -> byOneAccount queries options leafData
      _ -> forM_ queries $ \qry -> do
                outputText $ showInterval qry
                turnovers qry options coa
turnoversL queries options mbPath = do
    coa <- getCoAItemL mbPath
    case coa of
      Leaf {..} -> byOneAccount queries options leafData
      _ -> forM_ queries $ \qry -> do
                outputText $ showInterval qry
                turnovers qry options coa