debug-me: update to 1.20170810.

This commit is contained in:
Leah Neukirchen 2018-08-05 22:45:23 +02:00 committed by Leah Neukirchen
parent fc71066326
commit d5352c00a7
3 changed files with 56 additions and 4 deletions

View file

@ -0,0 +1,6 @@
packages:
- '.'
resolver: lts-12.5
extra-deps:
- posix-pty-0.2.1.1
allow-newer: true

View file

@ -0,0 +1,42 @@
--- Crypto.hs 2017-08-10 20:17:59.000000000 +0200
+++ Crypto.hs 2018-08-05 17:53:01.058720655 +0200
@@ -77,11 +77,11 @@
case Ed25519.publicKey pk of
CryptoPassed pk' -> SigVerifier 1 (Ed25519.verify pk')
CryptoFailed _ -> mempty
-
+instance Semigroup SigVerifier where
+ (SigVerifier na a) <> (SigVerifier nb b) =
+ SigVerifier (na+nb) $ \d s -> b d s || a d s
instance Monoid SigVerifier where
mempty = SigVerifier 0 $ \_b _s -> False
- mappend (SigVerifier na a) (SigVerifier nb b) =
- SigVerifier (na+nb) $ \d s -> b d s || a d s
data MySessionKey = MySessionKey Ed25519.SecretKey Ed25519.PublicKey
--- Types.hs 2017-08-10 20:17:59.000000000 +0200
+++ Types.hs 2018-08-05 17:51:29.435490869 +0200
@@ -194,9 +194,10 @@
mkElapsedTime :: POSIXTime -> POSIXTime -> ElapsedTime
mkElapsedTime start end = ElapsedTime $ fromRational $ toRational (end - start)
+instance Semigroup ElapsedTime where
+ (ElapsedTime a) <> (ElapsedTime b) = ElapsedTime (a+b)
instance Monoid ElapsedTime where
mempty = ElapsedTime 0
- mappend (ElapsedTime a) (ElapsedTime b) = ElapsedTime (a+b)
instance DataSize ElapsedTime where
dataSize _ = 16 -- 128 bit Double
--- Val.hs 2017-08-10 20:17:59.000000000 +0200
+++ Val.hs 2018-08-05 17:50:22.926328293 +0200
@@ -19,7 +19,7 @@
-- | Newtype of ByteString so we can have JSON instances without orphans.
newtype Val = Val { val :: B.ByteString }
- deriving (Show, Generic, Eq, Monoid)
+ deriving (Show, Generic, Eq, Monoid, Semigroup)
instance DataSize Val where
dataSize (Val b) = fromIntegral (B.length b)

View file

@ -1,14 +1,18 @@
# Template file for 'debug-me'
pkgname=debug-me
version=1.20170520
version=1.20170810
revision=1
build_style=haskell-stack
nocross=yes # Can't yet cross compile Haskell
makedepends="zlib-devel"
short_desc="Secure remote debugging"
maintainer="Dominic Monroe <monroef4@googlemail.com>"
license="AGPL-3"
license="AGPL-3.0-or-later"
homepage="https://debug-me.branchable.com/"
nopie=yes # network-2.6.3.1 build fails with a relocation
distfiles="https://git.joeyh.name/index.cgi/${pkgname}.git/snapshot/${pkgname}-${version}.tar.gz"
checksum=efafaf57e575e454ad0e46664d1fa07a34608f4a1faaf3e0d2a3537ed2c63131
checksum=1b884c882b33d6a43193730c414f6344c177a1a00f9fd0fc7b952f3473ed9666
nopie_files="/usr/bin/debug-me"
post_install() {
vlicense AGPL
}