changes before turning into a flake
This commit is contained in:
@@ -1,18 +0,0 @@
|
||||
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
|
||||
Reference in New Issue
Block a user