-- Main.hs

module Main where

import GetFNamesBckp

main :: IO ()
main = do putStrLn "Computing which files to zip ..."
          vFNames <- getFNamesToZip ["/"]
          putStrLn "******************* RESULTS"
          printVec vFNames
          return ()

printVec :: [String] -> IO()
printVec [] = return ()
printVec (a:as) = do putStrLn a
                     printVec as