19 lines
384 B
Haskell
19 lines
384 B
Haskell
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
|