From 7fa6a1dcbd9a7cc6fdd91c1f4968d8dd35580fee Mon Sep 17 00:00:00 2001
From: Sergey Vinokurov <serg.foo@gmail.com>
Date: Sun, 6 Jan 2019 20:29:08 +0000
Subject: [PATCH] Fix build for GHC 8.2 and 8.4

---
 Generator.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Generator.hs b/Generator.hs
index 89a50e7..0cfaa5f 100644
--- a/Generator.hs
+++ b/Generator.hs
@@ -307,7 +307,7 @@ genTypeDecl maxCapability typeDesc = unlines
         storableInstance    = unlines
             ["instance Storable " ++ dataName ++ " where"
             ,"    sizeOf x     = vectorSize x * elementSize x"
-            ,"    alignment    = sizeOf" -- for best performance align vectors as good as their size
+            ,"    alignment    = Foreign.Storable.sizeOf" -- for best performance align vectors as good as their size
             ,"    peek (Ptr a) = readOffAddr (Addr a) 0"
             ,"    poke (Ptr a) = writeOffAddr (Addr a) 0"
             ]
@@ -1035,14 +1035,15 @@ fileHeader td = unlines $
     ,"import GHC.Exts"
     ,"import GHC.ST"
     ,""
-    ,"import Foreign.Storable"
+    ,"import Foreign.Storable (Storable)"
+    ,"import qualified Foreign.Storable"
     ,""
     ,"import Control.Monad.Primitive"
     ,""
     ,"import Data.Primitive.Types"
     ,"import Data.Primitive.ByteArray"
     ,"import Data.Primitive.Addr"
-    ,"import Data.Monoid"
+    ,if versionBranch compilerVersion < [8, 4] then "import Data.Monoid" else ""
     ,"import Data.Typeable"
     ,""
     ,"import qualified Data.Vector.Primitive as PV"