init

download_hs/app/Main.hs

@@ -0,0 +1,18 @@
+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