build with ghc-8.6.3

Author: qz

src/Database/PostgreSQL/Protocol/Store/Encode.hs

@@ -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
 

stack-ghc8.6.3.yaml

@@ -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: []

stack.yaml

@@ -1 +1 @@
-stack-ghc8.0.2.yaml
+stack-ghc8.6.3.yaml