haskell98 1.0.1.1 → 1.1.0.0
raw patch · 2 files changed
+31/−5 lines, 2 filesdep ~directoryPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: directory
API changes (from Hackage documentation)
+ Directory: instance Eq Permissions
+ Directory: instance Ord Permissions
+ Directory: instance Read Permissions
+ Directory: instance Show Permissions
- Array: (!) :: (Ix i) => Array i e -> i -> e
+ Array: (!) :: Ix i => Array i e -> i -> e
- Array: (//) :: (Ix i) => Array i e -> [(i, e)] -> Array i e
+ Array: (//) :: Ix i => Array i e -> [(i, e)] -> Array i e
- Array: accum :: (Ix i) => (e -> a -> e) -> Array i e -> [(i, a)] -> Array i e
+ Array: accum :: Ix i => (e -> a -> e) -> Array i e -> [(i, a)] -> Array i e
- Array: accumArray :: (Ix i) => (e -> a -> e) -> e -> (i, i) -> [(i, a)] -> Array i e
+ Array: accumArray :: Ix i => (e -> a -> e) -> e -> (i, i) -> [(i, a)] -> Array i e
- Array: array :: (Ix i) => (i, i) -> [(i, e)] -> Array i e
+ Array: array :: Ix i => (i, i) -> [(i, e)] -> Array i e
- Array: assocs :: (Ix i) => Array i e -> [(i, e)]
+ Array: assocs :: Ix i => Array i e -> [(i, e)]
- Array: bounds :: (Ix i) => Array i e -> (i, i)
+ Array: bounds :: Ix i => Array i e -> (i, i)
- Array: data (Ix i) => Array i e :: * -> * -> *
+ Array: data Ix i => Array i e :: * -> * -> *
- Array: elems :: (Ix i) => Array i e -> [e]
+ Array: elems :: Ix i => Array i e -> [e]
- Array: indices :: (Ix i) => Array i e -> [i]
+ Array: indices :: Ix i => Array i e -> [i]
- Array: listArray :: (Ix i) => (i, i) -> [e] -> Array i e
+ Array: listArray :: Ix i => (i, i) -> [e] -> Array i e
- Complex: cis :: (RealFloat a) => a -> Complex a
+ Complex: cis :: RealFloat a => a -> Complex a
- Complex: conjugate :: (RealFloat a) => Complex a -> Complex a
+ Complex: conjugate :: RealFloat a => Complex a -> Complex a
- Complex: data (RealFloat a) => Complex a :: * -> *
+ Complex: data RealFloat a => Complex a :: * -> *
- Complex: imagPart :: (RealFloat a) => Complex a -> a
+ Complex: imagPart :: RealFloat a => Complex a -> a
- Complex: magnitude :: (RealFloat a) => Complex a -> a
+ Complex: magnitude :: RealFloat a => Complex a -> a
- Complex: mkPolar :: (RealFloat a) => a -> a -> Complex a
+ Complex: mkPolar :: RealFloat a => a -> a -> Complex a
- Complex: phase :: (RealFloat a) => Complex a -> a
+ Complex: phase :: RealFloat a => Complex a -> a
- Complex: polar :: (RealFloat a) => Complex a -> (a, a)
+ Complex: polar :: RealFloat a => Complex a -> (a, a)
- Complex: realPart :: (RealFloat a) => Complex a -> a
+ Complex: realPart :: RealFloat a => Complex a -> a
- Directory: data Permissions :: *
+ Directory: data Permissions
- IO: hPrint :: (Show a) => Handle -> a -> IO ()
+ IO: hPrint :: Show a => Handle -> a -> IO ()
- IO: print :: (Show a) => a -> IO ()
+ IO: print :: Show a => a -> IO ()
- IO: readIO :: (Read a) => String -> IO a
+ IO: readIO :: Read a => String -> IO a
- IO: readLn :: (Read a) => IO a
+ IO: readLn :: Read a => IO a
- Ix: class (Ord a) => Ix a
+ Ix: class Ord a => Ix a
- Ix: inRange :: (Ix a) => (a, a) -> a -> Bool
+ Ix: inRange :: Ix a => (a, a) -> a -> Bool
- Ix: index :: (Ix a) => (a, a) -> a -> Int
+ Ix: index :: Ix a => (a, a) -> a -> Int
- Ix: range :: (Ix a) => (a, a) -> [a]
+ Ix: range :: Ix a => (a, a) -> [a]
- Ix: rangeSize :: (Ix a) => (a, a) -> Int
+ Ix: rangeSize :: Ix a => (a, a) -> Int
- List: (\\) :: (Eq a) => [a] -> [a] -> [a]
+ List: (\\) :: Eq a => [a] -> [a] -> [a]
- List: delete :: (Eq a) => a -> [a] -> [a]
+ List: delete :: Eq a => a -> [a] -> [a]
- List: elem :: (Eq a) => a -> [a] -> Bool
+ List: elem :: Eq a => a -> [a] -> Bool
- List: elemIndex :: (Eq a) => a -> [a] -> Maybe Int
+ List: elemIndex :: Eq a => a -> [a] -> Maybe Int
- List: elemIndices :: (Eq a) => a -> [a] -> [Int]
+ List: elemIndices :: Eq a => a -> [a] -> [Int]
- List: genericDrop :: (Integral i) => i -> [a] -> [a]
+ List: genericDrop :: Integral i => i -> [a] -> [a]
- List: genericIndex :: (Integral a) => [b] -> a -> b
+ List: genericIndex :: Integral a => [b] -> a -> b
- List: genericLength :: (Num i) => [b] -> i
+ List: genericLength :: Num i => [b] -> i
- List: genericReplicate :: (Integral i) => i -> a -> [a]
+ List: genericReplicate :: Integral i => i -> a -> [a]
- List: genericSplitAt :: (Integral i) => i -> [b] -> ([b], [b])
+ List: genericSplitAt :: Integral i => i -> [b] -> ([b], [b])
- List: genericTake :: (Integral i) => i -> [a] -> [a]
+ List: genericTake :: Integral i => i -> [a] -> [a]
- List: group :: (Eq a) => [a] -> [[a]]
+ List: group :: Eq a => [a] -> [[a]]
- List: insert :: (Ord a) => a -> [a] -> [a]
+ List: insert :: Ord a => a -> [a] -> [a]
- List: intersect :: (Eq a) => [a] -> [a] -> [a]
+ List: intersect :: Eq a => [a] -> [a] -> [a]
- List: isPrefixOf :: (Eq a) => [a] -> [a] -> Bool
+ List: isPrefixOf :: Eq a => [a] -> [a] -> Bool
- List: isSuffixOf :: (Eq a) => [a] -> [a] -> Bool
+ List: isSuffixOf :: Eq a => [a] -> [a] -> Bool
- List: lookup :: (Eq a) => a -> [(a, b)] -> Maybe b
+ List: lookup :: Eq a => a -> [(a, b)] -> Maybe b
- List: maximum :: (Ord a) => [a] -> a
+ List: maximum :: Ord a => [a] -> a
- List: minimum :: (Ord a) => [a] -> a
+ List: minimum :: Ord a => [a] -> a
- List: notElem :: (Eq a) => a -> [a] -> Bool
+ List: notElem :: Eq a => a -> [a] -> Bool
- List: nub :: (Eq a) => [a] -> [a]
+ List: nub :: Eq a => [a] -> [a]
- List: product :: (Num a) => [a] -> a
+ List: product :: Num a => [a] -> a
- List: sort :: (Ord a) => [a] -> [a]
+ List: sort :: Ord a => [a] -> [a]
- List: sum :: (Num a) => [a] -> a
+ List: sum :: Num a => [a] -> a
- List: union :: (Eq a) => [a] -> [a] -> [a]
+ List: union :: Eq a => [a] -> [a] -> [a]
- Monad: (=<<) :: (Monad m) => (a -> m b) -> m a -> m b
+ Monad: (=<<) :: Monad m => (a -> m b) -> m a -> m b
- Monad: (>>) :: (Monad m) => m a -> m b -> m b
+ Monad: (>>) :: Monad m => m a -> m b -> m b
- Monad: (>>=) :: (Monad m) => m a -> (a -> m b) -> m b
+ Monad: (>>=) :: Monad m => m a -> (a -> m b) -> m b
- Monad: ap :: (Monad m) => m (a -> b) -> m a -> m b
+ Monad: ap :: Monad m => m (a -> b) -> m a -> m b
- Monad: class (Monad m) => MonadPlus m :: (* -> *)
+ Monad: class Monad m => MonadPlus m :: (* -> *)
- Monad: fail :: (Monad m) => String -> m a
+ Monad: fail :: Monad m => String -> m a
- Monad: filterM :: (Monad m) => (a -> m Bool) -> [a] -> m [a]
+ Monad: filterM :: Monad m => (a -> m Bool) -> [a] -> m [a]
- Monad: fmap :: (Functor f) => (a -> b) -> f a -> f b
+ Monad: fmap :: Functor f => (a -> b) -> f a -> f b
- Monad: foldM :: (Monad m) => (a -> b -> m a) -> a -> [b] -> m a
+ Monad: foldM :: Monad m => (a -> b -> m a) -> a -> [b] -> m a
- Monad: guard :: (MonadPlus m) => Bool -> m ()
+ Monad: guard :: MonadPlus m => Bool -> m ()
- Monad: join :: (Monad m) => m (m a) -> m a
+ Monad: join :: Monad m => m (m a) -> m a
- Monad: liftM :: (Monad m) => (a1 -> r) -> m a1 -> m r
+ Monad: liftM :: Monad m => (a1 -> r) -> m a1 -> m r
- Monad: liftM2 :: (Monad m) => (a1 -> a2 -> r) -> m a1 -> m a2 -> m r
+ Monad: liftM2 :: Monad m => (a1 -> a2 -> r) -> m a1 -> m a2 -> m r
- Monad: liftM3 :: (Monad m) => (a1 -> a2 -> a3 -> r) -> m a1 -> m a2 -> m a3 -> m r
+ Monad: liftM3 :: Monad m => (a1 -> a2 -> a3 -> r) -> m a1 -> m a2 -> m a3 -> m r
- Monad: liftM4 :: (Monad m) => (a1 -> a2 -> a3 -> a4 -> r) -> m a1 -> m a2 -> m a3 -> m a4 -> m r
+ Monad: liftM4 :: Monad m => (a1 -> a2 -> a3 -> a4 -> r) -> m a1 -> m a2 -> m a3 -> m a4 -> m r
- Monad: liftM5 :: (Monad m) => (a1 -> a2 -> a3 -> a4 -> a5 -> r) -> m a1 -> m a2 -> m a3 -> m a4 -> m a5 -> m r
+ Monad: liftM5 :: Monad m => (a1 -> a2 -> a3 -> a4 -> a5 -> r) -> m a1 -> m a2 -> m a3 -> m a4 -> m a5 -> m r
- Monad: mapAndUnzipM :: (Monad m) => (a -> m (b, c)) -> [a] -> m ([b], [c])
+ Monad: mapAndUnzipM :: Monad m => (a -> m (b, c)) -> [a] -> m ([b], [c])
- Monad: mapM :: (Monad m) => (a -> m b) -> [a] -> m [b]
+ Monad: mapM :: Monad m => (a -> m b) -> [a] -> m [b]
- Monad: mapM_ :: (Monad m) => (a -> m b) -> [a] -> m ()
+ Monad: mapM_ :: Monad m => (a -> m b) -> [a] -> m ()
- Monad: mplus :: (MonadPlus m) => m a -> m a -> m a
+ Monad: mplus :: MonadPlus m => m a -> m a -> m a
- Monad: msum :: (MonadPlus m) => [m a] -> m a
+ Monad: msum :: MonadPlus m => [m a] -> m a
- Monad: mzero :: (MonadPlus m) => m a
+ Monad: mzero :: MonadPlus m => m a
- Monad: return :: (Monad m) => a -> m a
+ Monad: return :: Monad m => a -> m a
- Monad: sequence :: (Monad m) => [m a] -> m [a]
+ Monad: sequence :: Monad m => [m a] -> m [a]
- Monad: sequence_ :: (Monad m) => [m a] -> m ()
+ Monad: sequence_ :: Monad m => [m a] -> m ()
- Monad: unless :: (Monad m) => Bool -> m () -> m ()
+ Monad: unless :: Monad m => Bool -> m () -> m ()
- Monad: when :: (Monad m) => Bool -> m () -> m ()
+ Monad: when :: Monad m => Bool -> m () -> m ()
- Monad: zipWithM :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m [c]
+ Monad: zipWithM :: Monad m => (a -> b -> m c) -> [a] -> [b] -> m [c]
- Monad: zipWithM_ :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m ()
+ Monad: zipWithM_ :: Monad m => (a -> b -> m c) -> [a] -> [b] -> m ()
- Random: genRange :: (RandomGen g) => g -> (Int, Int)
+ Random: genRange :: RandomGen g => g -> (Int, Int)
- Random: next :: (RandomGen g) => g -> (Int, g)
+ Random: next :: RandomGen g => g -> (Int, g)
- Random: randomIO :: (Random a) => IO a
+ Random: randomIO :: Random a => IO a
- Random: randomRIO :: (Random a) => (a, a) -> IO a
+ Random: randomRIO :: Random a => (a, a) -> IO a
- Random: split :: (RandomGen g) => g -> (g, g)
+ Random: split :: RandomGen g => g -> (g, g)
- Ratio: (%) :: (Integral a) => a -> a -> Ratio a
+ Ratio: (%) :: Integral a => a -> a -> Ratio a
- Ratio: approxRational :: (RealFrac a) => a -> a -> Rational
+ Ratio: approxRational :: RealFrac a => a -> a -> Rational
- Ratio: data (Integral a) => Ratio a :: * -> *
+ Ratio: data Integral a => Ratio a :: * -> *
- Ratio: denominator :: (Integral a) => Ratio a -> a
+ Ratio: denominator :: Integral a => Ratio a -> a
- Ratio: numerator :: (Integral a) => Ratio a -> a
+ Ratio: numerator :: Integral a => Ratio a -> a
Files
- Directory.hs +29/−1
- haskell98.cabal +2/−4
Directory.hs view
@@ -8,4 +8,32 @@ getModificationTime ) where -import System.Directory+import System.Directory hiding (Permissions,+ readable, writable, executable, searchable,+ getPermissions, setPermissions)+import qualified System.Directory as SD++data Permissions = Permissions {+ readable :: Bool,+ writable :: Bool,+ executable :: Bool,+ searchable :: Bool+ }+ deriving (Eq, Ord, Read, Show)++getPermissions :: FilePath -> IO Permissions+getPermissions fp = do perm <- SD.getPermissions fp+ return $ Permissions {+ readable = SD.readable perm,+ writable = SD.writable perm,+ executable = SD.executable perm,+ searchable = SD.searchable perm+ }++setPermissions :: FilePath -> Permissions -> IO ()+setPermissions fp perm = let mkPerm = setOwnerReadable (readable perm)+ . setOwnerWritable (writable perm)+ . setOwnerExecutable (executable perm)+ . setOwnerSearchable (searchable perm)+ in SD.setPermissions fp (mkPerm emptyPermissions)+
haskell98.cabal view
@@ -1,10 +1,11 @@ name: haskell98-version: 1.0.1.1+version: 1.1.0.0 license: BSD3 license-file: LICENSE maintainer: libraries@haskell.org bug-reports: http://hackage.haskell.org/trac/ghc/newticket?component=libraries/haskell98 synopsis: Compatibility with Haskell 98+category: Haskell98 description: This package provides compatibility with the modules of Haskell 98 and the FFI addendum, by means of wrappers around modules from@@ -26,9 +27,6 @@ Bits, CError, CForeign, CString, CTypes, ForeignPtr, Int, MarshalAlloc, MarshalArray, MarshalError, MarshalUtils, Ptr, StablePtr, Storable, Word- -- We need to set the package name to haskell98 (without a version number)- -- as it's magic.- ghc-options: -package-name haskell98 source-repository head type: darcs