Browse Source

Restore support for GHC 7.8.x

tags/v0.2.1.0
Peter J. Jones 4 years ago
parent
commit
423e261173
5 changed files with 17 additions and 5 deletions
  1. 4
    0
      CHANGES
  2. 2
    1
      src/Vimeta/Core/Cache.hs
  3. 1
    1
      src/Vimeta/Core/Process.hs
  4. 7
    0
      src/Vimeta/UI/Common/Movie.hs
  5. 3
    3
      vimeta.cabal

+ 4
- 0
CHANGES View File

@@ -2,6 +2,10 @@
#+title: Version History
#+startup: showall

* 0.2.1.0 (July, 23, 2015)

- Restore support for GHC 7.8.x

* 0.2.0.0 (July 22, 2015)

- Initial public release.

+ 2
- 1
src/Vimeta/Core/Cache.hs View File

@@ -18,6 +18,7 @@ module Vimeta.Core.Cache
) where

--------------------------------------------------------------------------------
import Control.Monad (liftM)
import Control.Monad.IO.Class
import Data.Aeson as Aeson
import qualified Data.ByteString.Lazy as BL
@@ -65,7 +66,7 @@ readCache filename age = do
modtime <- liftIO (getModificationTime filename)

if fresh now modtime
then Aeson.decode' <$> liftIO (BL.readFile filename)
then Aeson.decode' `liftM` liftIO (BL.readFile filename)
else return Nothing

fresh :: UTCTime -> UTCTime -> Bool

+ 1
- 1
src/Vimeta/Core/Process.hs View File

@@ -21,7 +21,7 @@ module Vimeta.Core.Process
-- Library imports:
import Control.Applicative
import qualified Data.Text as Text
import System.Exit hiding (die)
import System.Exit (ExitCode (..))
import System.Process

--------------------------------------------------------------------------------

+ 7
- 0
src/Vimeta/UI/Common/Movie.hs View File

@@ -17,12 +17,19 @@ module Vimeta.UI.Common.Movie
) where

--------------------------------------------------------------------------------
import Control.Applicative
import qualified Data.Map as Map
import Data.Maybe
import qualified Data.Text as Text
import Network.API.TheMovieDB
import Vimeta.Core

--------------------------------------------------------------------------------
-- The following is a kludge to avoid the "redundant import" warning
-- when using GHC >= 7.10.x. This should be removed after we decide
-- to stop supporting GHC < 7.10.x.
import Prelude

--------------------------------------------------------------------------------
-- | Run the tagger for the given file/movie combo.
tagMovie :: (MonadIO m) => FilePath -> Movie -> Vimeta m ()

+ 3
- 3
vimeta.cabal View File

@@ -1,6 +1,6 @@
--------------------------------------------------------------------------------
name: vimeta
version: 0.2.0.0
version: 0.2.1.0
synopsis: Frontend for video metadata tagging tools
homepage: http://github.com/pjones/vimeta
bug-reports: http://github.com/pjones/vimeta/issues
@@ -64,11 +64,11 @@ library

hs-source-dirs: src
default-language: Haskell2010
ghc-options: -Wall -fwarn-incomplete-uni-patterns
ghc-prof-options: -prof -auto-all

if flag(maintainer)
ghc-options: -Werror
ghc-options: -Wall -fwarn-incomplete-uni-patterns
ghc-prof-options: -prof -auto-all

build-depends: aeson >= 0.8 && < 0.10
, base >= 4.6 && < 5.0

Loading…
Cancel
Save