~pvsr/mpd-status

ac4e0db7749d1b276b5f4c3a73f0f46a2695dcd8 — Peter Rice 8 months ago 7e0bf2a
create an i3blocks-specific module
4 files changed, 7 insertions(+), 7 deletions(-)

R Status.hs => I3blocks/Block.hs
R Click.hs => I3blocks/Click.hs
R Config.hs => I3blocks/Config.hs
M mpd-status.cabal
R Status.hs => I3blocks/Block.hs +1 -1
@@ 13,8 13,8 @@ import qualified Data.Text as T (Text, pack)
import qualified Data.Text.IO as T (putStrLn)
import Network.MPD

import Config
import Operation
import I3blocks.Config

main :: IO ()
main = do

R Click.hs => I3blocks/Click.hs +1 -1
@@ 1,7 1,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}

module Click (Button(..)) where
module I3blocks.Click (Button(..)) where

import Data.Aeson


R Config.hs => I3blocks/Config.hs +2 -2
@@ 1,9 1,9 @@
{-# LANGUAGE OverloadedStrings #-}

module Config(buttonToOp, volStep) where
module I3blocks.Config(buttonToOp, volStep) where

import Click
import Operation
import I3blocks.Click

import Network.MPD (PlaylistName(..))


M mpd-status.cabal => mpd-status.cabal +3 -3
@@ 21,9 21,9 @@ executable mpd-status
  default-extensions:  OverloadedStrings
  other-extensions:    LambdaCase
  ghc-options:         -Wall
  main-is:             Status.hs
  other-modules:       Click
                       Config
  main-is:             I3blocks/Block.hs
  other-modules:       I3blocks.Click
                       I3blocks.Config
                       Operation
                       Shuffle