support template-haskell 2.16, GHC 8.10 (snoyberg#28)

typeable · Dec 14, 2019 · 03484ad · 03484ad
1 parent 47b499c
commit 03484ad
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Data/FileEmbed.hs b/Data/FileEmbed.hs
@@ -143,7 +143,11 @@ pairToExp _root (path, bs) = do
     qAddDependentFile $ _root ++ '/' : path
 #endif
     exp' <- bsToExp bs
-    return $! TupE [LitE $ StringL path, exp']
+    return $! TupE
+#if MIN_VERSION_template_haskell(2,16,0)
+      $ map Just
+#endif
+      [LitE $ StringL path, exp']
 
 bsToExp :: B.ByteString -> Q Exp
 #if MIN_VERSION_template_haskell(2, 5, 0)