mp 1.0.1 → 1.0.2

raw patch · 2 files changed

+18/−8 lines, 2 files

Files

• mp.cabal +1/−1
• src/Mp/UI/QueuePage.hs +17/−7

@@ -1,5 +1,5 @@ name:               mp-version:            1.0.1+version:            1.0.2 cabal-version:      >=1.22 build-type:         Simple author:             Piotr Borek <piotrborek@op.pl>

@@ -28,9 +28,10 @@     queuePageNew ) where -import           Control.Lens     (ix, makeLensesFor, (.=), (^.), (^?))+import           Control.Lens        (ix, makeLensesFor, (.=), (^.), (^?)) import           Control.Monad-import qualified Graphics.Vty     as Vty+import           Control.Monad.Catch+import qualified Graphics.Vty        as Vty import           Simple.UI.All  import           Mp.Player.Client@@ -157,11 +158,20 @@      return queue   where-    readFullStatusFromServer queuePage = catchIgnoreAll $ do-        items <- clientSendGetPlaylist-        index <- clientSendGetPlaying-        set queuePage _queuePageSongIndex index-        mpSongInit items+    readFullStatusFromServer = readFullStatusFromServer' (100 :: Int)++    readFullStatusFromServer' 0 _ = return ()+    readFullStatusFromServer' counter queuePage =+        catchAll+            (do+                items <- clientSendGetPlaylist+                index <- clientSendGetPlaying+                set queuePage _queuePageSongIndex index+                mpSongInit items)+            (\_ -> do+                mpData <- view appUserData+                mainScheduleAfter 100 $+                    liftUIApp mpData $ readFullStatusFromServer' (counter - 1) queuePage)      scheduleIndexFromServer queuePage = mainScheduleRepeat 200 $         catchIgnoreAll $ do