musicScroll 0.2.1.0 → 0.2.2.0

raw patch · 3 files changed

+7/−7 lines, 3 files

Files

• musicScroll.cabal +1/−1
• src/MusicScroll/UI.hs +2/−5
• src/MusicScroll/UIEvent.hs +4/−1

@@ -4,7 +4,7 @@ -- http://haskell.org/cabal/users-guide/  name:                musicScroll-version:             0.2.1.0+version:             0.2.2.0 synopsis:            Supply your tunes info without leaving your music player.  description:         Automatically retrive the lyrics of of your current                      song on SMPlayer/VLC and update it on each change. See the

@@ -10,13 +10,11 @@ import           Control.Exception (throwIO, AsyncException(UserInterrupt)) import           Control.Monad (forever) import           Data.Functor (void)-import           Data.Maybe (isNothing) import           Data.GI.Gtk.Threading (setCurrentThreadAsGUIThread) import           Data.Maybe (fromJust) import           Data.Text (pack) import qualified GI.Gtk as Gtk -import           MusicScroll.TrackInfo (TrackByPath(tpArtist)) import           MusicScroll.TrackSuplement import           MusicScroll.UIEvent @@ -86,7 +84,6 @@   do shouldMaintainArtistSupl <- Gtk.getToggleButtonActive keepArtistNameCheck      validGuessArtist <- (/= mempty) <$> Gtk.entryGetText artistSuplementEntry      case cause of-       NotOnDB track-         | isNothing (tpArtist track), shouldMaintainArtistSupl,-           validGuessArtist -> sendSuplementalInfo ctx suplChan+       OnlyMissingArtist | shouldMaintainArtistSupl, validGuessArtist ->+                     sendSuplementalInfo ctx suplChan        _ -> return ()

@@ -1,4 +1,4 @@-{-# language OverloadedStrings, RecordWildCards, BangPatterns #-}+{-# language OverloadedStrings, RecordWildCards, BangPatterns, PatternSynonyms #-} module MusicScroll.UIEvent where  import           Control.Monad (unless)@@ -15,6 +15,9 @@              | ErrorOn ErrorCause  data ErrorCause = NotOnDB TrackByPath | NoLyricsOnWeb TrackInfo | ENoSong++pattern OnlyMissingArtist :: ErrorCause+pattern OnlyMissingArtist <- NotOnDB (TrackByPath {tpArtist = Nothing, tpTitle = Just _})  data AppContext = AppContext   { mainWindow     :: Gtk.Window