More path parsing

2023-07-31 15:18:50 +02:00 · 2023-07-31 15:18:50 +02:00 · 1cda324ad2
parent 137b150cc3
commit 1cda324ad2
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -68,6 +68,6 @@ mkIndex :: Bool -> FilePath -> FilePath -> IO ()
 mkIndex True d l = do
    line <- readFile $ d++"/"++l
    putStrLn $ "=> " ++ l ++ " " ++ (head . lines $ line)
-mkIndex False _ l = putStrLn $ "=> " ++ l
+mkIndex False d l = putStrLn $ "=> " ++ d ++ "/" ++ l

 --compose = (++) <$> ("=> " ++) <*> (show . length) <*> (head . lines =<< readFile)