1 files changed, 3 insertions, 2 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Lib/Internal.hs b/libraries/template-haskell/Language/Haskell/TH/Lib/Internal.hs
index 11e53ca701..0154c59d22 100644
--- a/libraries/template-haskell/Language/Haskell/TH/Lib/Internal.hs
+++ b/libraries/template-haskell/Language/Haskell/TH/Lib/Internal.hs
@@ -23,6 +23,7 @@ import qualified Language.Haskell.TH.Syntax as TH
 import Control.Applicative(liftA, liftA2)
 import qualified Data.Kind as Kind (Type)
 import Data.Word( Word8 )
+import Data.List.NonEmpty ( NonEmpty(..) )
 import GHC.Exts (TYPE)
 import Prelude
 
@@ -371,8 +372,8 @@ getFieldE e f = do
   e' <- e
   pure (GetFieldE e' f)
 
-projectionE :: Quote m => [String] -> m Exp
-projectionE xs = pure (ProjectionE xs)
+projectionE :: Quote m => NonEmpty String -> m Exp
+projectionE (x :| xs) = pure (ProjectionE x xs)
 
 -- ** 'arithSeqE' Shortcuts
 fromE :: Quote m => m Exp -> m Exp