diff --git a/.github/workflows/tests.yml b/.github/workflows/tests.yml
index b959c8a..53187f3 100644
--- a/.github/workflows/tests.yml
+++ b/.github/workflows/tests.yml
@@ -1,7 +1,5 @@
 name: Tests
 
-# Is taken from the https://github.com/yesodweb/yesod/blob/master/.github/workflows/tests.yml template
-
 on:
     pull_request:
     push:
diff --git a/Text/Shakespeare/I18N.hs b/Text/Shakespeare/I18N.hs
index 296be84..c966c1b 100644
--- a/Text/Shakespeare/I18N.hs
+++ b/Text/Shakespeare/I18N.hs
@@ -63,7 +63,6 @@ module Text.Shakespeare.I18N
     ) where
 
 import Language.Haskell.TH.Syntax hiding (makeRelativeToProject)
---import Control.Applicative ((<$>))
 import Control.Monad (filterM, forM)
 import Data.Text (Text, pack, unpack)
 import System.Directory
@@ -78,7 +77,6 @@ import Data.Ord (comparing)
 import Text.Shakespeare.Base (Deref (..), Ident (..), parseHash, derefToExp)
 import Text.ParserCombinators.Parsec (parse, many, eof, many1, noneOf, (<|>), string, spaces, char, option, alphaNum, sepBy1, try)
 import Control.Arrow ((***))
---import Data.Monoid (mempty, mappend)
 import qualified Data.Text as T
 import Data.String (IsString (fromString))
 
@@ -197,7 +195,6 @@ mkMessageCommon genType prefix postfix master dt rawFolder lang = do
 
                  parseName = do
                       cxt' <- option [] parseContext
- --                     name' <- parseWord    -- This one is no longer needed as a separate argument
                       args <- many parseWord
                       spaces
                       eof