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)