addLogToRest inst@(ListFiles path _) = do
  hoistFree InL $ log Debug ("Listing contents in " ++ path)
  next <- hoistFree InR $ cloudFtoRestM inst
  hoistFree InL $ log Debug ("Listing done in " ++ path)
  return next
addLogToRest inst@(ListFiles path _) = do
  hoistFree InL $ log Debug ("Listing contents in " ++ path)
  next <- hoistFree InR $ cloudFtoRestM inst
  hoistFree InL $ log Debug ("Listing done in " ++ path)
  return next
addLogToRest inst@(ListFiles path _) = do
  hoistFree InL $ log Debug ("Listing contents in " ++ path)
  next <- hoistFree InR $ cloudFtoRestM inst
  hoistFree InL $ log Debug ("Listing done in " ++ path)
  return next