diff options
Diffstat (limited to 'src/Bottom.hs')
-rw-r--r-- | src/Bottom.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Bottom.hs b/src/Bottom.hs index 4ff7265..a13662b 100644 --- a/src/Bottom.hs +++ b/src/Bottom.hs @@ -1,14 +1,12 @@ import Xmobar import Config -import qualified MPD -import qualified Mpris +import qualified Music import System.Environment (getArgs) + main :: IO () main = do args <- getArgs let mpris = if null args then "spotify" else last args - if mpris == "mpd" - then palette >>= configFromArgs . MPD.config >>= xmobar - else palette >>= configFromArgs . (Mpris.config mpris) >>= xmobar + palette >>= configFromArgs . Music.config mpris >>= xmobar |