MasseR/buuka
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: MasseR:cee5ad8addbae0b38de754808daf16409a939718
Branches Tags
MasseR:master
MasseR:import
..
compare: MasseR:a921139295aef7056630c453832f2e8209c8b095
Branches Tags
MasseR:master
MasseR:import

2 Commits
cee5ad8add ... a921139295

Author SHA1 Message Date
Mats Rauhala
a921139295 Merge remote-tracking branch 'origin/master' into query 2021-01-03 00:43:39 +02:00
Mats Rauhala
1906ce9964 Use an override for home if it exists 2021-01-02 23:10:07 +02:00
1 changed files with 8 additions and 2 deletions
Show Stats Expand all files Collapse all files

10
app/Main.hs
View File

@ -14,6 +14,9 @@ import UnliftIO.Directory
import Data.Foldable import Data.Foldable
(asum) (asum)
import System.Environment
(lookupEnv)
import qualified Operations import qualified Operations
import Data.Query import Data.Query
@ -35,5 +38,8 @@ commands = subparser
main :: IO () main :: IO ()
main = do main = do
env <- Environment <$> getXdgDirectory XdgData "buuka" env <- Environment <$> (lookupEnv "BUUKA_HOME" >>= maybe defaultHome pure)
execParser (info (commands <**> helper) fullDesc) >>= runBuukaM env execParser (info (commands <**> helper) (fullDesc <> progDesc description)) >>= runBuukaM env
where
defaultHome = getXdgDirectory XdgData "buuka"
description = "Bookmarks manager. Stores the bookmarks in a yaml file under your xdg directory or in a folder specified by the BUUKA_HOME environment variable"