GHC 7.0.4 compat release

Author: hvr

CHANGES.md

@@ -1,6 +1,6 @@
 cabal-version: 1.12
 name: MissingH
-version: 1.4.2.0
+version: 1.4.2.1
 
 build-type: Simple
 license: BSD3
@@ -36,11 +36,6 @@ extra-source-files:
   examples/test2.hs
   examples/test3.hs
 
-flag network--GE-3_0_0
-  description: [network](http://hackage.haskell.org/package/network) ≥ 3.0.0
-  default: True
-  manual: False
-
 source-repository head
   type: git
   location: https://github.com/hvr/missingh.git
@@ -106,34 +101,28 @@ library
     UndecidableInstances
   other-extensions:
     CPP
-    Safe
-    Trustworthy
     TypeSynonymInstances
 
   build-depends:
-      array               >= 0.4.0.0 && < 0.6
-    , base                >= 4.5.0.0 && < 4.13
-    , containers          >= 0.4.2.1 && < 0.7
-    , directory           >= 1.1.0.2 && < 1.4
-    , filepath            >= 1.3.0.0 && < 1.5
-    , hslogger            >= 1.3.0.0 && < 1.4
+      array               == 0.3.*
+    , base                == 4.3.*
+    , containers          == 0.4.*
+    , directory           == 1.1.*
+    , filepath            == 1.2.*
+    , hslogger            == 1.3.*
     , mtl                 >= 1.1.1.0 && < 2.3
     , old-locale          == 1.0.*
-    , old-time            == 1.1.*
+    , old-time            == 1.0.*
     , parsec              == 3.1.*   && (< 3.1.12 || >= 3.1.13)
-    , process             >= 1.1.0.1 && < 1.7
+    , process             == 1.0.*
     , random              >= 1.0.1.1 && < 1.2
     , regex-compat        >= 0.95.1  && < 0.96
-    , time                >= 1.4     && < 1.10
+    , time                == 1.2.*
 
-  if flag(network--GE-3_0_0)
-    build-depends: network-bsd >= 2.8.1 && <2.9,
-                   network >= 3.0 && <3.2
-  else
-    build-depends: network >= 2.6.3.1 && <2.9
+  build-depends: network >= 2.6.3.1 && <2.7
 
   If !os(windows)
-    Build-Depends: unix   >= 2.5.1.0 && < 2.8
+    Build-Depends: unix   >= 2.4.2 && < 2.5
 
   ghc-options: -fno-warn-deprecations
 

MissingH.cabal

@@ -1,3 +1,4 @@
+with-compiler: ghc-7.0.4
 packages: .
 
 package MissingH

cabal.project

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Thread utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Control/Concurrent/Thread/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2008-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/BinPacking.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Bit utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Bits/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: CSV and TSV utilities
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/CSV.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 -- arch-tag: Inflate implementation for Haskell
 
 {-

src/Data/Compression/Inflate.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Either utilities
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Either/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: GZIP CRC32 implementation in pure Haskell
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Hash/CRC32/GZip.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {-# OPTIONS_GHC -fno-warn-missing-methods #-}
 
 {- |

src/Data/Hash/MD5.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {-# OPTIONS_HADDOCK hide #-}
 {-# OPTIONS_GHC -fno-warn-missing-methods #-}
 

src/Data/Hash/MD5/Zord64_HARD.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: List utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/List/Utils.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {- arch-tag: MIME Types main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/MIME/Types.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Map/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Maybe utilities
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Maybe/Utils.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {-
 Copyright (c) 2006-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Progress/Meter.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2006-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Progress/Tracker.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2006-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Quantity.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
-
 {- arch-tag: String utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/String/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Tuple utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Data/Tuple/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/Network/Email/Mailbox.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Safe #-}
 
 {- arch-tag: Sendmail utility
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>

src/Network/Email/Sendmail.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
-
 {- arch-tag: Generic Server Support
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Network/SocketServer.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Trustworthy #-}
 
 {- arch-tag: Network utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>

src/Network/Utils.hs

@@ -1,6 +1,5 @@
 -- arch-tag: Command utilities main file
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Trustworthy #-}
 
 {-
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
@@ -326,11 +325,7 @@ forceSuccess (PipeHandle pid fp args funcname) =
                 Just (Exited (ExitSuccess)) -> return ()
                 Just (Exited (ExitFailure fc)) ->
                     cmdfailed funcname fp args fc
-#if MIN_VERSION_unix(2,7,0)
-                Just (Terminated sig _) ->
-#else
                 Just (Terminated sig) ->
-#endif
                     warnfail fp args $ "Terminated by signal " ++ show sig
                 Just (Stopped sig) ->
                     warnfail fp args $ "Stopped by signal " ++ show sig
@@ -356,11 +351,7 @@ safeSystem command args =
        case ec of
             Exited ExitSuccess -> return ()
             Exited (ExitFailure fc) -> cmdfailed "safeSystem" command args fc
-#if MIN_VERSION_unix(2,7,0)
-            Terminated s _ -> cmdsignalled "safeSystem" command args s
-#else
             Terminated s -> cmdsignalled "safeSystem" command args s
-#endif
             Stopped s -> cmdsignalled "safeSystem" command args s
 #endif
 

src/System/Cmd/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Console/GetOpt/Utils.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Trustworthy #-}
 
 {-
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>

src/System/Daemon.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {- arch-tag: Parser for Debian control file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Debian/ControlParser.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: GZip file support in Haskell
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/FileArchive/GZip.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
-
 {- arch-tag: I/O utilities, binary tools
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/Binary.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP, TypeSynonymInstances #-}
-{-# LANGUAGE Trustworthy #-}
 {- arch-tag: HVFS main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 
@@ -62,10 +61,6 @@ import System.Posix.Types
 import System.Time
 import qualified System.Directory as D
 
-#if MIN_VERSION_directory(1,2,0)
-import Data.Time.Clock.POSIX ( utcTimeToPOSIXSeconds )
-#endif
-
 {- | Encapsulate a 'HVFSStat' result.  This is required due to Haskell
 typing restrictions.  You can get at it with:
 
@@ -309,11 +304,7 @@ instance HVFS SystemFS where
     vGetSymbolicLinkStatus = vGetFileStatus
 #endif
 
-#if MIN_VERSION_directory(1,2,0)
-    vGetModificationTime _ p = D.getModificationTime p >>= (\modUTCTime -> return $ TOD ((toEnum . fromEnum . utcTimeToPOSIXSeconds) modUTCTime) 0)
-#else
     vGetModificationTime _ = D.getModificationTime
-#endif
 #if !(defined(mingw32_HOST_OS) || defined(mingw32_TARGET_OS) || defined(__MINGW32__))
     vCreateSymbolicLink _ = createSymbolicLink
     vReadSymbolicLink _ = readSymbolicLink

src/System/IO/HVFS.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Safe #-}
+
 {- arch-tag: HVFS Combinators
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/HVFS/Combinators.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: HVFS instance helpers
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/HVFS/InstanceHelpers.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
 
 {- arch-tag: HVFS utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>

src/System/IO/HVFS/Utils.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {- arch-tag: HVIO main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/HVIO.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP  #-}
-{-# LANGUAGE Safe #-}
 {- Platform Compatibility Layer
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/PlafCompat.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP  #-}
-{-# LANGUAGE Safe #-}
 {-
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/StatCompat.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
-
 {-
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/IO/Utils.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Safe #-}
+
 {- Windows compatibility layer
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 
@@ -125,11 +125,7 @@ getFileStatus fp =
        isdir <- doesDirectoryExist fp
        perms <- getPermissions fp
        modct <- getModificationTime fp
-#if MIN_VERSION_directory(1,2,0)
-       let epochtime = utcTimeToSeconds modct
-#else
        let epochtime = clockTimeToEpoch modct
-#endif
        return $ FileStatusCompat {deviceID = -1,
                                   fileID = -1,
                                   fileMode = if isfile then regularFileMode

src/System/IO/WindowsCompat.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE Safe #-}
 {- arch-tag: Path utilities main file
 Copyright (C) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Path.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Safe #-}
-
 {-
 Copyright (c) 2006-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Path/Glob.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- |
    Module     : System.Path.NameManip
    Copyright  : Copyright (C) 2004 Volker Wysk

src/System/Path/NameManip.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE Trustworthy #-}
-
 {-
 Copyright (c) 2006-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Path/WildMatch.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- Posix consts not included with Haskell
 Copyright (c) 2005-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Posix/Consts.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Time utilities main file
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/System/Time/Utils.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE Safe #-}
 {- arch-tag: Parsec utilities
 Copyright (c) 2004-2011 John Goerzen <jgoerzen@complete.org>
 

src/Text/ParserCombinators/Parsec/Utils.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 module TestUtils (mapassertEqual, assertRaises, errorCallMsg) where
 
 import           Control.Exception (ErrorCall (..), Exception,
@@ -29,6 +27,3 @@ assertRaises check act = do
 
 errorCallMsg :: ErrorCall -> String
 errorCallMsg (ErrorCall msg)               = msg
-#if MIN_VERSION_base(4,9,0)
-errorCallMsg (ErrorCallWithLocation msg _) = msg
-#endif