modern ghc only
This commit is contained in:
+2
-15
@@ -8,15 +8,6 @@ language: c
|
|||||||
# release of a major GHC version. Setting HPVER implictly sets
|
# release of a major GHC version. Setting HPVER implictly sets
|
||||||
# GHCVER. Omit lines with versions you don't need/want testing for.
|
# GHCVER. Omit lines with versions you don't need/want testing for.
|
||||||
env:
|
env:
|
||||||
- CABALVER=1.16 GHCVER=6.12.3
|
|
||||||
- CABALVER=1.16 GHCVER=7.0.1
|
|
||||||
- CABALVER=1.16 GHCVER=7.0.2
|
|
||||||
- CABALVER=1.16 GHCVER=7.0.3
|
|
||||||
- CABALVER=1.16 GHCVER=7.0.4
|
|
||||||
- CABALVER=1.16 GHCVER=7.2.1
|
|
||||||
- CABALVER=1.16 GHCVER=7.2.2
|
|
||||||
- CABALVER=1.16 GHCVER=7.4.1
|
|
||||||
- CABALVER=1.16 GHCVER=7.4.2
|
|
||||||
- CABALVER=1.16 GHCVER=7.6.1
|
- CABALVER=1.16 GHCVER=7.6.1
|
||||||
- CABALVER=1.16 GHCVER=7.6.2
|
- CABALVER=1.16 GHCVER=7.6.2
|
||||||
- CABALVER=1.18 GHCVER=7.6.3
|
- CABALVER=1.18 GHCVER=7.6.3
|
||||||
@@ -26,11 +17,8 @@ env:
|
|||||||
- CABALVER=1.18 GHCVER=7.8.4
|
- CABALVER=1.18 GHCVER=7.8.4
|
||||||
- CABALVER=1.22 GHCVER=7.10.1
|
- CABALVER=1.22 GHCVER=7.10.1
|
||||||
- CABALVER=1.22 GHCVER=7.10.2
|
- CABALVER=1.22 GHCVER=7.10.2
|
||||||
# - CABALVER=head GHCVER=head
|
- CABALVER=1.22 GHCVER=7.10.3
|
||||||
- HPVER=2013.2.0.0
|
- CABALVER=head GHCVER=head
|
||||||
- HPVER=2012.4.0.0
|
|
||||||
- HPVER=2012.2.0.0
|
|
||||||
- HPVER=2011.4.0.0
|
|
||||||
|
|
||||||
# Note: the distinction between `before_install` and `install` is not
|
# Note: the distinction between `before_install` and `install` is not
|
||||||
# important.
|
# important.
|
||||||
@@ -93,7 +81,6 @@ script:
|
|||||||
# (including tests/benchmarks)
|
# (including tests/benchmarks)
|
||||||
- cabal build
|
- cabal build
|
||||||
|
|
||||||
- cabal test
|
|
||||||
- cabal check
|
- cabal check
|
||||||
|
|
||||||
# tests that a source-distribution can be generated
|
# tests that a source-distribution can be generated
|
||||||
|
|||||||
@@ -33,6 +33,7 @@ library
|
|||||||
Debug
|
Debug
|
||||||
List
|
List
|
||||||
Monad
|
Monad
|
||||||
|
Show
|
||||||
Unsafe
|
Unsafe
|
||||||
|
|
||||||
default-extensions:
|
default-extensions:
|
||||||
|
|||||||
@@ -1,3 +1,4 @@
|
|||||||
|
{-# LANGUAGE CPP #-}
|
||||||
{-# LANGUAGE NoImplicitPrelude #-}
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
|
|
||||||
module Monad (
|
module Monad (
|
||||||
@@ -38,7 +39,12 @@ module Monad (
|
|||||||
) where
|
) where
|
||||||
|
|
||||||
import Prelude (concat, seq)
|
import Prelude (concat, seq)
|
||||||
|
|
||||||
|
#if (__GLASGOW_HASKELL__ >= 710)
|
||||||
|
import Control.Monad hiding ((<$!>))
|
||||||
|
#else
|
||||||
import Control.Monad
|
import Control.Monad
|
||||||
|
#endif
|
||||||
|
|
||||||
concatMapM :: (Monad m) => (a -> m [b]) -> [a] -> m [b]
|
concatMapM :: (Monad m) => (a -> m [b]) -> [a] -> m [b]
|
||||||
concatMapM f xs = liftM concat (mapM f xs)
|
concatMapM f xs = liftM concat (mapM f xs)
|
||||||
@@ -54,3 +60,10 @@ liftM2' f a b = do
|
|||||||
let z = f x y
|
let z = f x y
|
||||||
z `seq` return z
|
z `seq` return z
|
||||||
{-# INLINE liftM2' #-}
|
{-# INLINE liftM2' #-}
|
||||||
|
|
||||||
|
(<$!>) :: Monad m => (a -> b) -> m a -> m b
|
||||||
|
f <$!> m = do
|
||||||
|
x <- m
|
||||||
|
let z = f x
|
||||||
|
z `seq` return z
|
||||||
|
{-# INLINE (<$!>) #-}
|
||||||
|
|||||||
Reference in New Issue
Block a user