writeVerbFiles :: HetcatsOpts -- ^ Hets options
               -> String -- ^ A suffix to be combined with the libname
               -> [(LibName, String)] -- ^ An output list
               -> IO ()
writeVerbFiles opts suffix = mapM_ f
        where f (ln, s) = writeVerbFile opts (libNameToFile ln ++ suffix) s
writeVerbFiles :: HetcatsOpts -- ^ Hets options
               -> String -- ^ A suffix to be combined with the libname
               -> [(LibName, String)] -- ^ An output list
               -> IO ()
writeVerbFiles opts suffix = mapM_ f
        where f (ln, s) = writeVerbFile opts (libNameToFile ln ++ suffix) s
writeVerbFiles opts suffix = mapM_ f
        where f (ln, s) = writeVerbFile opts (libNameToFile ln ++ suffix) s