diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cluster.hs | 4 | ||||
| -rw-r--r-- | bin/draw.hs | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/bin/cluster.hs b/bin/cluster.hs index 222834e..ba9e9f1 100644 --- a/bin/cluster.hs +++ b/bin/cluster.hs @@ -138,9 +138,7 @@ run opts = do hSetBuffering stdout NoBuffering m@((ps, cl), _) <- S.fold_ (\l r -> if mml l < mml r then l else r) (([[]], []), -1 / 0) id . takeWithProgress (nsamples opts) $ - if mhfrac opts <= 0 - then ssmh g (model $ getCompact parsed) - else mh g (mhfrac opts) (model $ getCompact parsed) + mh g (mhfrac opts) (model $ getCompact parsed) writeFile (outputPath opts <> "/props") . unlines $ map (intercalate "," . map show) ps writeFile (outputPath opts <> "/tree") . unlines $ map show cl writeFile (outputPath opts <> "/mml") $ show (mml m) diff --git a/bin/draw.hs b/bin/draw.hs index 89658f6..f2d5b54 100644 --- a/bin/draw.hs +++ b/bin/draw.hs @@ -73,7 +73,8 @@ main = run =<< execParser opts (parser <**> helper) (fullDesc <> progDesc "Draw phylogeny" <> header "phylogey - Bayesian phylogeny inference") parser = - Options <$> option nat (long "nthreshold" <> short 't' <> help "minimum number of variants" <> showDefault <> value 0 <> metavar "NAT") + Options + <$> option nat (long "nthreshold" <> short 't' <> help "minimum number of variants" <> showDefault <> value 0 <> metavar "NAT") <*> argument str (metavar "PROPS") <*> argument str (metavar "TREE") <*> argument str (metavar "PATH") |