From 072f02371b10987c0d53a93b3adcbd112d261495 Mon Sep 17 00:00:00 2001
From: Alex Naspo <alex.naspo@leapyear.io>
Date: Fri, 27 Aug 2021 22:49:25 -0400
Subject: [PATCH] added completion for language to { -# LANGAUGE

---
 .../src/Ide/Plugin/Pragmas.hs                 | 23 +++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/plugins/hls-pragmas-plugin/src/Ide/Plugin/Pragmas.hs b/plugins/hls-pragmas-plugin/src/Ide/Plugin/Pragmas.hs
index 444722e18d..6ad66dab7c 100644
--- a/plugins/hls-pragmas-plugin/src/Ide/Plugin/Pragmas.hs
+++ b/plugins/hls-pragmas-plugin/src/Ide/Plugin/Pragmas.hs
@@ -164,7 +164,7 @@ completion _ide _ complParams = do
                     = J.List $ map buildCompletion
                         (Fuzzy.simpleFilter (VFS.prefixText pfix) allPragmas)
                     | otherwise
-                    = J.List []
+                    = J.List [buildLanguageSnippetCompletion]
                 result Nothing = J.List []
                 buildCompletion p =
                     J.CompletionItem
@@ -186,8 +186,27 @@ completion _ide _ complParams = do
                         _command = Nothing,
                         _xdata = Nothing
                       }
+                buildLanguageSnippetCompletion =                    
+                  J.CompletionItem
+                      { _label = "language",
+                        _kind = Just J.CiKeyword,
+                        _tags = Nothing,
+                        _detail = Just "{-# LANGUAGE #-}",
+                        _documentation = Nothing,
+                        _deprecated = Nothing,
+                        _preselect = Nothing,
+                        _sortText = Nothing,
+                        _filterText = Nothing,
+                        _insertText = Just "{-# LANGUAGE ${1:extension} #-}",
+                        _insertTextFormat = (Just J.Snippet),
+                        _insertTextMode = Nothing,
+                        _textEdit = Nothing,
+                        _additionalTextEdits = Nothing,
+                        _commitCharacters = Nothing,
+                        _command = Nothing,
+                        _xdata = Nothing
+                      }
         _ -> return $ J.List []
-
 -----------------------------------------------------------------------
 
 -- | Find first line after the last file header pragma