Support building with socks-0.6 and persistant-template-2.7
persistent-template now needs UndecidableInstances. socks changed defaultSocksConf to take a SockAddr.
This commit is contained in:
parent
9fd37e65d0
commit
018b5b8173
7 changed files with 14 additions and 0 deletions
|
@ -20,6 +20,7 @@ git-annex (7.20190730) upstream; urgency=medium
|
||||||
parsing.
|
parsing.
|
||||||
* Drop support for building with ghc older than 8.4.4,
|
* Drop support for building with ghc older than 8.4.4,
|
||||||
and with older versions of serveral haskell libraries.
|
and with older versions of serveral haskell libraries.
|
||||||
|
* Support building with socks-0.6 and persistant-template-2.7.
|
||||||
* Corrected some license statements.
|
* Corrected some license statements.
|
||||||
Thanks, Sean Whitton.
|
Thanks, Sean Whitton.
|
||||||
|
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts, EmptyDataDecls #-}
|
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts, EmptyDataDecls #-}
|
||||||
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
||||||
{-# LANGUAGE RankNTypes #-}
|
{-# LANGUAGE RankNTypes #-}
|
||||||
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
|
|
||||||
module Database.ContentIdentifier (
|
module Database.ContentIdentifier (
|
||||||
ContentIdentifierHandle,
|
ContentIdentifierHandle,
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
||||||
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
||||||
{-# LANGUAGE RankNTypes #-}
|
{-# LANGUAGE RankNTypes #-}
|
||||||
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
|
|
||||||
module Database.Export (
|
module Database.Export (
|
||||||
ExportHandle,
|
ExportHandle,
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
||||||
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
||||||
{-# LANGUAGE RankNTypes #-}
|
{-# LANGUAGE RankNTypes #-}
|
||||||
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
|
|
||||||
module Database.Fsck (
|
module Database.Fsck (
|
||||||
FsckHandle,
|
FsckHandle,
|
||||||
|
|
|
@ -9,6 +9,7 @@
|
||||||
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
{-# LANGUAGE OverloadedStrings, GADTs, FlexibleContexts #-}
|
||||||
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
{-# LANGUAGE MultiParamTypeClasses, GeneralizedNewtypeDeriving #-}
|
||||||
{-# LANGUAGE RankNTypes, ScopedTypeVariables #-}
|
{-# LANGUAGE RankNTypes, ScopedTypeVariables #-}
|
||||||
|
{-# LANGUAGE UndecidableInstances #-}
|
||||||
|
|
||||||
module Database.Keys.SQL where
|
module Database.Keys.SQL where
|
||||||
|
|
||||||
|
|
|
@ -5,6 +5,8 @@
|
||||||
- Licensed under the GNU AGPL version 3 or higher.
|
- Licensed under the GNU AGPL version 3 or higher.
|
||||||
-}
|
-}
|
||||||
|
|
||||||
|
{-# LANGUAGE CPP #-}
|
||||||
|
|
||||||
module Utility.Tor where
|
module Utility.Tor where
|
||||||
|
|
||||||
import Common
|
import Common
|
||||||
|
@ -37,7 +39,12 @@ connectHiddenService (OnionAddress address) port = do
|
||||||
return s
|
return s
|
||||||
where
|
where
|
||||||
torsocksport = 9050
|
torsocksport = 9050
|
||||||
|
#if MIN_VERSION_socks(0,6,0)
|
||||||
|
torsockconf = defaultSocksConf $ SockAddrInet torsocksport $
|
||||||
|
tupleToHostAddress (127,0,0,1)
|
||||||
|
#else
|
||||||
torsockconf = defaultSocksConf "127.0.0.1" torsocksport
|
torsockconf = defaultSocksConf "127.0.0.1" torsocksport
|
||||||
|
#endif
|
||||||
socksdomain = SocksAddrDomainName (BU8.fromString address)
|
socksdomain = SocksAddrDomainName (BU8.fromString address)
|
||||||
socksaddr = SocksAddress socksdomain (fromIntegral port)
|
socksaddr = SocksAddress socksdomain (fromIntegral port)
|
||||||
|
|
||||||
|
|
|
@ -3,3 +3,5 @@ The current Hackage version (7.20190615) only compiles with the constraints sock
|
||||||
The compiler errors can be fixed with the attached patches.
|
The compiler errors can be fixed with the attached patches.
|
||||||
|
|
||||||
In the case of the socks changes (for Tor), I am not sure if it will actually work correctly.
|
In the case of the socks changes (for Tor), I am not sure if it will actually work correctly.
|
||||||
|
|
||||||
|
> Found the necessary changes to get it to compile. [[done]] --[[Joey]]
|
||||||
|
|
Loading…
Reference in a new issue