mirror of
https://github.com/postgres-haskell/postgres-wire.git
synced 2024-11-24 17:34:49 +03:00
build with ghc-8.6.3
This commit is contained in:
parent
3246c201fd
commit
2a10e6c21a
@ -28,13 +28,14 @@ import Data.Store.Core (Poke(..), unsafeEncodeWith, pokeStatePtr,
|
||||
|
||||
data Encode = Encode {-# UNPACK #-} !Int !(Poke ())
|
||||
|
||||
instance Semigroup Encode where
|
||||
{-# INLINE (<>) #-}
|
||||
(Encode len1 f1) <> (Encode len2 f2) = Encode (len1 + len2) (f1 *> f2)
|
||||
|
||||
instance Monoid Encode where
|
||||
{-# INLINE mempty #-}
|
||||
mempty = Encode 0 . Poke $ \_ offset -> pure (offset, ())
|
||||
|
||||
{-# INLINE mappend #-}
|
||||
(Encode len1 f1) `mappend` (Encode len2 f2) = Encode (len1 + len2) (f1 *> f2)
|
||||
|
||||
instance Show Encode where
|
||||
show (Encode len _) = "Encode instance of length " ++ show len
|
||||
|
||||
|
22
stack-ghc8.6.3.yaml
Normal file
22
stack-ghc8.6.3.yaml
Normal file
@ -0,0 +1,22 @@
|
||||
# This file was automatically generated by 'stack init'
|
||||
#
|
||||
resolver: lts-13.4
|
||||
|
||||
packages:
|
||||
- '.'
|
||||
# Dependency packages to be pulled from upstream that are not in the resolver
|
||||
# (e.g., acme-missiles-0.3)
|
||||
extra-deps:
|
||||
- socket-0.8.2.0
|
||||
- socket-unix-0.2.0.0
|
||||
# <<<<<<< HEAD
|
||||
# =======
|
||||
# - store-core-0.3
|
||||
# - QuickCheck-2.9.2
|
||||
# >>>>>>> QuickCheck tests for existing codecs
|
||||
|
||||
# Override default flag values for local packages and extra-deps
|
||||
flags: {}
|
||||
|
||||
# Extra package databases containing global packages
|
||||
extra-package-dbs: []
|
@ -1 +1 @@
|
||||
stack-ghc8.0.2.yaml
|
||||
stack-ghc8.6.3.yaml
|
Loading…
Reference in New Issue
Block a user