From 03484ad401260e1d3b9dfc5d6f7cda05d84f11c9 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 14 Dec 2019 07:57:07 -0800
Subject: [PATCH] support template-haskell 2.16, GHC 8.10 (#28)

---
 Data/FileEmbed.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Data/FileEmbed.hs b/Data/FileEmbed.hs
index bbd83ee..7a7bedb 100644
--- 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)