Format: 1.8 Date: Fri, 14 Jul 2017 18:50:00 -0700 Source: haskell-happstack-util Binary: libghc-happstack-util-dev libghc-happstack-util-prof libghc-happstack-util-doc Architecture: source amd64 all Version: 6.0.3-1+seereason1~artful1 Distribution: artful-seereason Urgency: low Maintainer: Debian Haskell Group Changed-By: SeeReason Autobuilder Description: libghc-happstack-util-dev - ${haskell:ShortDescription}${haskell:ShortBlurb} libghc-happstack-util-doc - ${haskell:ShortDescription}${haskell:ShortBlurb} libghc-happstack-util-prof - ${haskell:ShortDescription}${haskell:ShortBlurb} Changes: haskell-happstack-util (6.0.3-1+seereason1~artful1) artful-seereason; urgency=low . * Initial release * Built from hackage, revision: Debianize'' (Patch (Hackage "happstack-util") "--- old/happstack-util.cabal\t2012-01-31 18:40:37.000000000 -0800\n+++ new/happstack-util.cabal\t2014-09-04 05:22:21.463056773 -0700\n@@ -29,7 +29,7 @@\n directory,\n extensible-exceptions, \n hslogger >= 1.0.2,\n- mtl >= 1.1 && < 2.1,\n+ mtl >= 1.1 && < 2.3,\n old-locale,\n old-time,\n parsec < 4,\n--- old/src/Happstack/Crypto/DES.lhs\t2012-01-31 18:40:37.000000000 -0800\n+++ new/src/Happstack/Crypto/DES.lhs\t2014-09-04 05:28:03.595064856 -0700\n@@ -203,9 +203,9 @@\n > 23, 24, 25, 26, 27, 28, 27, 28, 29, 30, 31, 0]\n \n > s_box :: [[Word8]] -> Bits6 -> Bits4\n-> s_box s [a,b,c,d,e,f] = to_bool 4 $ (s !! row) !! col\n+> s_box s [a,b,c,d,e,f] = to_bool (4 :: Int) $ (s !! row) !! col\n > where row = sum $ zipWith numericise [a,f] [1, 0]\n-> col = sum $ zipWith numericise [b,c,d,e] [3, 2, 1, 0]\n+> col = sum $ zipWith numericise [b,c,d,e] ([3, 2, 1, 0] :: [Int])\n > numericise = (\\x y -> if x then 2^y else 0)\n > to_bool 0 _ = []\n > to_bool n i = ((i .&. 8) == 8):to_bool (n-1) (shiftL i 1)\n--- old/src/Happstack/Util/AutoBuild.hs\t2012-01-31 18:40:37.000000000 -0800\n+++ new/src/Happstack/Util/AutoBuild.hs\t2014-09-04 05:25:32.047061276 -0700\n@@ -16,10 +16,10 @@\n import Control.Concurrent (forkIO, threadDelay)\n import Control.Concurrent.MVar (MVar, newEmptyMVar, putMVar, takeMVar)\n import Control.Exception (bracket)\n+import Data.Time.Clock (UTCTime)\n import System.Directory (getModificationTime)\n import System.Exit (ExitCode(..), exitFailure)\n import System.Process\n-import System.Time (ClockTime)\n import System.IO\n \n -- | Functionality for the autoBuild tool.\n@@ -43,7 +43,7 @@\n exitFailure\n \n -- builds the program\n-builder :: MVar ProcessHandle -> String -> FilePath -> ClockTime -> IO ()\n+builder :: MVar ProcessHandle -> String -> FilePath -> UTCTime -> IO ()\n builder mph buildCmd binPath lastMod = do\n -- add a delay between build attempts (5 seconds)\n threadDelay 5000000\n--- old/src/Happstack/Util/Common.hs\t2012-01-31 18:40:37.000000000 -0800\n+++ new/src/Happstack/Util/Common.hs\t2014-09-04 05:24:41.119060072 -0700\n@@ -11,6 +11,7 @@\n \n import System.Log.Logger\n import Control.Concurrent\n+import Control.Exception (catch)\n import Control.Monad\n import qualified Data.ByteString.Char8 as P\n import Data.Char\n@@ -101,7 +102,7 @@\n mbReadFile :: a -> (String -> a) -> FilePath -> IO a\n mbReadFile noth just path = \n \t(do text <- readFile path;return $ just text)\n-\t`catch` \\err -> if isDoesNotExistError err then return noth else ioError err\n+\t`catch` \\ err -> if isDoesNotExistError err then return noth else ioError err\n \n mapFst :: (a -> b) -> [(a,x)] -> [(b,x)]\n mapFst = map . first\n--- old/src/Happstack/Util/Daemonize.hs\t2012-01-31 18:40:37.000000000 -0800\n+++ new/src/Happstack/Util/Daemonize.hs\t2014-09-04 05:27:37.147064231 -0700\n@@ -3,10 +3,10 @@\n import System.Directory\n import System.Environment\n import System.Exit\n-import System.Time\n import Control.Concurrent\n import Control.Exception.Extensible as E\n import Control.Monad.Error\n+import Data.Time (getCurrentTime, diffUTCTime)\n import Happstack.Crypto.SHA1\n import Happstack.Util.Common\n \n@@ -22,13 +22,12 @@\n daemonize :: FilePath -> IO a -> IO a\n daemonize binarylocation main = \n do\n- startTime <- getClockTime\n+ startTime <- getCurrentTime\n tid1 <- exitIfAlreadyRunning startTime\n mId <- myThreadId\n tid2 <- appCheck binarylocation startTime mId\n main `finally` mapM killThread [tid1,tid2]\n where \n- seconds n = noTimeDiff { tdSec = n }\n exitIfAlreadyRunning startTime = \n do\n uniqueId <- getDaemonizedId\n@@ -37,7 +36,7 @@\n when fe $ \n do \n daemonTime <- getModificationTime name \n- when (diffClockTimes startTime daemonTime < seconds 2) $\n+ when (diffUTCTime startTime daemonTime < fromIntegral (2 :: Int)) $\n exitWith ExitSuccess >> return ()\n periodic (repeat 1) $ writeFile name \"daemon\" \n \n--- old/src/Happstack/Util/FileManip.hs\t2014-07-21 16:37:45.074838493 -0700\n+++ new/src/Happstack/Util/FileManip.hs\t2015-06-08 11:36:10.268507825 -0700\n@@ -33,7 +33,11 @@\n -- construction of combinators. Wraps the 'State' monad, but doesn't\n -- allow 'get' or 'put'.\n newtype FindClause a = FC { runFC :: State FileInfo a }\n- deriving (Functor, Monad)\n+ deriving (\n+#if MIN_VERSION_base(4,8,0)\n+ Applicative,\n+#endif\n+ Functor, Monad)\n \n -- | Run the given 'FindClause' on the given 'FileInfo' and return its\n -- result. This can be useful if you are writing a function to pass\n--- old/src/Happstack/Util/LogFormat.hs\t2014-07-21 16:37:45.074838493 -0700\n+++ new/src/Happstack/Util/LogFormat.hs\t2015-06-08 11:34:52.136510079 -0700\n@@ -3,7 +3,11 @@\n , formatRequestCombined\n ) where\n \n+#if MIN_VERSION_time(1,5,0)\n+import Data.Time (defaultTimeLocale)\n+#else\n import System.Locale (defaultTimeLocale)\n+#endif\n import Data.Time.Format (FormatTime(..), formatTime)\n \n -- | Format the time as describe in the Apache combined log format.\n") Nothing (with /proc mounted) Checksums-Sha1: 601556f167c3e06208460f89edecaa52ecf50ea4 23904 haskell-happstack-util_6.0.3-1+seereason1~artful1.tar.xz 249de25667ee0224ec088e9a4871a924027e4be2 10378 haskell-happstack-util_6.0.3-1+seereason1~artful1_amd64.buildinfo 2b896785f8ed77a3642957fa51759e68cb5728c2 212660 libghc-happstack-util-dev_6.0.3-1+seereason1~artful1_amd64.deb 26cd2d0f3ac72595c4e0017d03b43a52fb1cac79 67084 libghc-happstack-util-doc_6.0.3-1+seereason1~artful1_all.deb ac7c284fac0a817c025dbe9b78d34b1b2584cba7 224270 libghc-happstack-util-prof_6.0.3-1+seereason1~artful1_amd64.deb 94b81d38426b98ec5ce6b3fd459181bd55d18d90 9321 haskell-happstack-util_6.0.3-1+seereason1~artful1.dsc Checksums-Sha256: 50634224267ddf0f411ab8a42c7dcd594d1a94a92ab8b126ca6aa9cf444d2930 23904 haskell-happstack-util_6.0.3-1+seereason1~artful1.tar.xz dd3e121b7d7cb9977e3967a9dd4e4b3c53c1e660280e5ab6898bedf130ceafc3 10378 haskell-happstack-util_6.0.3-1+seereason1~artful1_amd64.buildinfo d6c9d829e74dce873bae54a2d954f94c3081b5f33516eb599b5625bed0b3d36a 212660 libghc-happstack-util-dev_6.0.3-1+seereason1~artful1_amd64.deb 88e05f0b647438721bb352e1901c0f57d105e7ad456038717e749ff8620b1592 67084 libghc-happstack-util-doc_6.0.3-1+seereason1~artful1_all.deb 46e935e4e3d269400bc74acb105d94b5622a07e9535a2554cc279b239aaf5745 224270 libghc-happstack-util-prof_6.0.3-1+seereason1~artful1_amd64.deb 9b6477e75e8a8cfa43b5cd207c54936dff1949af8a135650e05b59fbe583b2c5 9321 haskell-happstack-util_6.0.3-1+seereason1~artful1.dsc Build-Info: Autobuilder-Version: 6.74 Time: 36.77669s Date: "Fri, 14 Jul 2017 18:50:37 -0700" Memory: 16115088 kB CPU: Intel(R) Core(TM) i7-4790S CPU @ 3.20GHz CPU count: 8 OS Architecture: x86_64 CPU MHz: 3705.500 CPU cache: 8192 KB Host: trusty Files: a212f612d672f64757e994654af7fc73 23904 haskell extra haskell-happstack-util_6.0.3-1+seereason1~artful1.tar.xz abadcf716bb706ed7f0b2ab344750c81 10378 haskell extra haskell-happstack-util_6.0.3-1+seereason1~artful1_amd64.buildinfo ed3d0850eddfe60ace629adefff5103e 212660 haskell extra libghc-happstack-util-dev_6.0.3-1+seereason1~artful1_amd64.deb 006b4222e2e013b14f3413ec51874bc8 67084 doc extra libghc-happstack-util-doc_6.0.3-1+seereason1~artful1_all.deb ba61b8aa0ccbf568afc9ed2fdd3a9e1e 224270 haskell extra libghc-happstack-util-prof_6.0.3-1+seereason1~artful1_amd64.deb 7a69b21e2d69fbcb9fc2ab0645fde3c3 9321 haskell extra haskell-happstack-util_6.0.3-1+seereason1~artful1.dsc