Skip to content

Commit

Permalink
improve deps output
Browse files Browse the repository at this point in the history
  • Loading branch information
VictorTaelin committed Sep 29, 2024
1 parent 65cbdaf commit 73e7336
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Kind/API.hs
Original file line number Diff line number Diff line change
Expand Up @@ -173,7 +173,7 @@ runDeps basePath input = do
let name = extractName basePath input
book <- apiLoad basePath M.empty name
case M.lookup name book of
Just term -> forM_ (nub $ getDeps term) $ \dep -> putStrLn dep
Just term -> forM_ (filter (/= name) $ nub $ getDeps term) $ \dep -> putStrLn dep
Nothing -> putStrLn $ "Error: Definition '" ++ name ++ "' not found."

runRDeps :: FilePath -> String -> IO ()
Expand Down

0 comments on commit 73e7336

Please sign in to comment.