github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Easier way to get output dir

Browse Source
This commit is contained in:
Timothy Clem 2017-04-21 18:07:16 -07:00
parent 643a7a3581
commit d4933b3aaf
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/SemanticCmdLine.hs
View File

@ -24,7 +24,7 @@ main = do
gitDir <- findGitDir
alternates <- findAlternates
Arguments{..} <- customExecParser (prefs showHelpOnEmpty) (arguments gitDir alternates)
outputPath <- getOutputPath outputFilePath
outputPath <- traverse getOutputPath outputFilePath
text <- case programMode of
Diff args -> runDiff args
Parse args -> runParse args
@ -33,18 +33,14 @@ main = do
findGitDir = do
pwd <- getCurrentDirectory
fromMaybe pwd <$> lookupEnv "GIT_DIR"
findAlternates = do
eitherObjectDirs <- try $ splitWhen (== ':') . toS <$> getEnv "GIT_ALTERNATE_OBJECT_DIRECTORIES"
pure $ case (eitherObjectDirs :: Either IOError [FilePath]) of
(Left _) -> []
(Right objectDirs) -> objectDirs
getOutputPath Nothing = pure Nothing
getOutputPath (Just path) = do
getOutputPath path = do
isDir <- doesDirectoryExist path
pure . Just $ if isDir then takeFileName path -<.> ".html" else path
pure $ if isDir then takeFileName path -<.> ".html" else path
writeToOutput :: Maybe FilePath -> ByteString -> IO ()
writeToOutput = maybe B.putStr B.writeFile