Egg/twin
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Paying attentioon helps

Browse source
This commit is contained in:
Nox Sluijtman 2023-07-31 20:22:34 +02:00
parent f9325d02c9
commit fdf0f88dea
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -47,8 +47,8 @@ parseArgs (Args t dir h v r c) = do
mkIndex :: Bool -> FilePath -> FilePath -> IO () mkIndex :: Bool -> FilePath -> FilePath -> IO ()
mkIndex True d l = do mkIndex True d l = do
line <- readFile $ d++"/"++l line <- head . lines <$> readFile path
putStrLn $ "=> " ++ path ++ (head . lines $ line) putStrLn $ "=> " ++ path ++ line
where path = d++"/"++l++" " where path = d++"/"++l++" "
mkIndex False d l = putStrLn $ "=> " ++ path mkIndex False d l = putStrLn $ "=> " ++ path