mp 0.2.0 → 0.2.1

raw patch · 2 files changed

+5/−6 lines, 2 files

Files

• mp.cabal +1/−1
• src/Mp/Player/Server.hs +4/−5

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

@@ -58,10 +58,9 @@     state <- readMVar serverState     encodeFile (cfgDir </> "server.state") state -saveServerIndex :: MVar ServerState -> IO ()-saveServerIndex serverState = do+saveServerIndex :: ServerState -> IO ()+saveServerIndex state = do     cfgDir <- configDirFilePath-    state <- readMVar serverState     encodeFile (cfgDir </> "server.index") (PlayingIndex $ getPlaying state)  startServerBlocking :: String -> IO ()@@ -139,6 +138,8 @@         let list = getPlaylist st         let index = indexFunction $ getPlaying st +        when (and [index >= 0, index < length list]) $ saveServerIndex st+         if and [index >= 0, index < length list]             then                 modifyPlayerPlay st player index@@ -153,8 +154,6 @@                     modifyPlayerPlay st player newIndex                 else                     modifyPlayerStop st player--    saveServerIndex serverState  modifyPlayerStop :: ServerState -> GstPlayer -> IO ServerState modifyPlayerStop st player = do