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

More path parsing

Browse source
This commit is contained in:
Nox Sluijtman 2023-07-31 15:18:50 +02:00
parent 137b150cc3
commit 1cda324ad2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -68,6 +68,6 @@ mkIndex :: Bool -> FilePath -> FilePath -> IO ()
mkIndex True d l = do mkIndex True d l = do
line <- readFile $ d++"/"++l line <- readFile $ d++"/"++l
putStrLn $ "=> " ++ l ++ " " ++ (head . lines $ line) putStrLn $ "=> " ++ l ++ " " ++ (head . lines $ line)
mkIndex False _ l = putStrLn $ "=> " ++ l mkIndex False d l = putStrLn $ "=> " ++ d ++ "/" ++ l
--compose = (++) <$> ("=> " ++) <*> (show . length) <*> (head . lines =<< readFile) --compose = (++) <$> ("=> " ++) <*> (show . length) <*> (head . lines =<< readFile)