~singpolyma/haskell-gnutls

500141717414c5fb47eb8febeb04c855c8b6229b — John Millikin 10 years ago 12aa431
Minor cleanups. Remove maximum version of "transformers" dependency.
M gnutls.cabal => gnutls.cabal +7 -7
@@ 1,17 1,17 @@
name: gnutls
version: 0.1.1
version: 0.1.2
license: GPL-3
license-file: license.txt
author: John Millikin <jmillikin@gmail.com>
maintainer: John Millikin <jmillikin@gmail.com>
build-type: Simple
cabal-version: >=1.6
cabal-version: >= 1.6
category: Network
stability: experimental
homepage: https://john-millikin.com/software/haskell-gnutls/
bug-reports: mailto:jmillikin@gmail.com

synopsis: Bindings for GNU TLS
synopsis: Bindings for GNU libgnutls
description:
  You almost certainly don't want to depend on this release.
  .


@@ 26,16 26,16 @@ source-repository head
source-repository this
  type: bazaar
  location: https://john-millikin.com/branches/haskell-gnutls/0.1/
  tag: anansi_0.1.1
  tag: haskell-gnutls_0.1.2

library
  hs-source-dirs: lib
  ghc-options: -Wall -O2

  build-depends:
      base >=3 && < 5
      base >= 4.0 && < 5.0
    , bytestring >= 0.9 && < 0.10
    , transformers >= 0.2 && < 0.3
    , transformers >= 0.2
    , monads-tf >= 0.1 && < 0.2

  extra-libraries: gnutls, gnutls-extra


@@ 45,5 45,5 @@ library
    Network.Protocol.TLS.GNU

  other-modules:
    Network.Protocol.TLS.GNU.Foreign
    Network.Protocol.TLS.GNU.ErrorT
    Network.Protocol.TLS.GNU.Foreign

M lib/Network/Protocol/TLS/GNU.hs => lib/Network/Protocol/TLS/GNU.hs +15 -12
@@ 1,19 1,20 @@
{-# LANGUAGE TypeFamilies #-}

-- Copyright (C) 2010 John Millikin <jmillikin@gmail.com>
-- 
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- any later version.
-- 
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
-- 
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

{-# LANGUAGE TypeFamilies #-}
module Network.Protocol.TLS.GNU
	( TLS
	, Session


@@ 40,22 41,24 @@ module Network.Protocol.TLS.GNU
	, setPriority
	, CertificateType (..)
	) where
import Control.Monad (when, foldM, foldM_)
import Control.Monad.Trans (MonadIO, liftIO)

import qualified Control.Concurrent.MVar as M
import           Control.Monad (when, foldM, foldM_)
import qualified Control.Monad.Error as E
import           Control.Monad.Error (ErrorType)
import qualified Control.Monad.Reader as R
import qualified Control.Concurrent.MVar as M
import           Control.Monad.Trans (MonadIO, liftIO)
import qualified Data.ByteString as B
import qualified Data.ByteString.Unsafe as B
import qualified Data.ByteString.Lazy as BL
import qualified System.IO as IO
import qualified Data.ByteString.Unsafe as B
import qualified Foreign as F
import qualified Foreign.C as F
import           Foreign.Concurrent as FC
import qualified System.IO as IO
import           System.IO.Unsafe (unsafePerformIO)

import           Network.Protocol.TLS.GNU.ErrorT
import qualified Network.Protocol.TLS.GNU.Foreign as F
import Foreign.Concurrent as FC
import Network.Protocol.TLS.GNU.ErrorT
import System.IO.Unsafe (unsafePerformIO)

data Error = Error Integer
	deriving (Show)

M lib/Network/Protocol/TLS/GNU/ErrorT.hs => lib/Network/Protocol/TLS/GNU/ErrorT.hs +8 -7
@@ 1,27 1,28 @@
{-# LANGUAGE TypeFamilies #-}

-- Copyright (C) 2010 John Millikin <jmillikin@gmail.com>
-- 
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- any later version.
-- 
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
-- 
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

{-# LANGUAGE TypeFamilies #-}
module Network.Protocol.TLS.GNU.ErrorT
	( ErrorT (..)
	, mapErrorT
	) where

import Control.Monad (liftM)
import Control.Monad.Trans (MonadIO, liftIO)
import Control.Monad.Trans.Class (MonadTrans, lift)
import           Control.Monad (liftM)
import           Control.Monad.Trans (MonadIO, liftIO)
import           Control.Monad.Trans.Class (MonadTrans, lift)
import qualified Control.Monad.Error as E
import           Control.Monad.Error (ErrorType)
import qualified Control.Monad.Reader as R

M lib/Network/Protocol/TLS/GNU/Foreign.hs => lib/Network/Protocol/TLS/GNU/Foreign.hs +8 -6
@@ 1,22 1,24 @@
{-# LANGUAGE ForeignFunctionInterface #-}

-- Copyright (C) 2010 John Millikin <jmillikin@gmail.com>
-- 
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- any later version.
-- 
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.
-- 
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

{-# LANGUAGE ForeignFunctionInterface #-}
module Network.Protocol.TLS.GNU.Foreign where
import Foreign
import Foreign.C

import           Foreign
import           Foreign.C

-- Type aliases {{{