From 1cda324ad28e164574bf85666dd2d33f93d72cf8 Mon Sep 17 00:00:00 2001 From: Marty Sluijtman Date: Mon, 31 Jul 2023 15:18:50 +0200 Subject: [PATCH] More path parsing --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 952d6cd..629c801 100644 --- 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)