Paying attentioon helps

app/Main.hs

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