module Main where
-- import Text.RE


-- Read a file line by line
readLines :: FilePath -> IO [String]
readLines = fmap lines . readFile

-- Example usage
main :: IO ()
main = do
    let filePath = "./app/test.txt"
    linesOfFile <- readLines filePath
    mapM_ watchedURLS linesOfFile

watchedURLS :: String -> IO ()
watchedURLS line = do
    putStrLn $ "Processing line: " ++ line