Add test to prove #1228 is resolved

Author: fendor

test/functional/FunctionalCodeActionsSpec.hs

@@ -145,6 +145,7 @@ spec = describe "code actions" $ do
         , "                                                )"
         , "import           Control.Monad                  ( when )"
         , "import           Data.Maybe                     ( fromMaybe )"
+        , "-- | Main entry point to the program"
         , "main :: IO ()"
         , "main ="
         , "    when True"
@@ -169,6 +170,7 @@ spec = describe "code actions" $ do
         [ "import           System.IO (stdout, hPutStrLn)"
         , "import           Control.Monad (when)"
         , "import           Data.Maybe (fromMaybe)"
+        , "-- | Main entry point to the program"
         , "main :: IO ()"
         , "main ="
         , "    when True"
@@ -568,6 +570,7 @@ hsImportSpec formatterName [e1, e2, e3] =
           [ "import System.IO (stdout, hPutStrLn)"
           , "import Control.Monad (when)"
           , "import Data.Maybe (fromMaybe)"
+          , "-- | Main entry point to the program"
           , "main :: IO ()"
           , "main ="
           , "    when True"

test/testdata/CodeActionImportList.hs

@@ -1,3 +1,4 @@
+-- | Main entry point to the program
 main :: IO ()
 main =
     when True