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

Merge remote-tracking branch 'origin/master' into query

Browse Source
This commit is contained in:
Mats Rauhala 2021-01-03 00:43:39 +02:00
commit a921139295
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File 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"