postgres-haskell/postgres-wire
1
1
Fork 0
mirror of https://github.com/postgres-haskell/postgres-wire.git synced 2024-11-22 05:53:12 +03:00
Code Issues Projects Releases Wiki Activity

Removed safe library from dependencies

Browse Source
This commit is contained in:
VyacheslavHashov 2017-07-11 23:50:02 +03:00
parent c06fe27ac9
commit 630d90090b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
postgres-wire.cabal
View File

@ -43,7 +43,6 @@ library
, socket , socket
, socket-unix , socket-unix
, vector , vector
, safe
, time , time
, hashable , hashable
, hashtables , hashtables

4
src/Database/PostgreSQL/Driver/RawConnection.hs
View File

@ -6,7 +6,6 @@ module Database.PostgreSQL.Driver.RawConnection
import Control.Monad (void, when) import Control.Monad (void, when)
import Control.Exception (bracketOnError, try) import Control.Exception (bracketOnError, try)
import Safe (headMay)
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Foreign (castPtr, plusPtr) import Foreign (castPtr, plusPtr)
import System.Socket (socket, AddressInfo(..), getAddressInfo, socketAddress, import System.Socket (socket, AddressInfo(..), getAddressInfo, socketAddress,
@ -75,6 +74,9 @@ createRawConnection settings
let dir = B.reverse . B.dropWhile (== 47) $ B.reverse dirPath let dir = B.reverse . B.dropWhile (== 47) $ B.reverse dirPath
in dir <> "/" <> unixPathFilename <> portStr in dir <> "/" <> unixPathFilename <> portStr
headMay [] = Nothing
headMay (x:_) = Just x
constructRawConnection :: Socket f Stream p -> RawConnection constructRawConnection :: Socket f Stream p -> RawConnection
constructRawConnection s = RawConnection constructRawConnection s = RawConnection
{ rFlush = pure () { rFlush = pure ()