From 383d709620171b6111485bf4b5ba5b052936fa42 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 19 Mar 2021 16:58:10 +0100
Subject: [PATCH] refactor: give glossaryTerms better type

---
 src/Handler/Info/TH.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Info/TH.hs b/src/Handler/Info/TH.hs
index 9fc0e72e4..d8e354dcf 100644
--- a/src/Handler/Info/TH.hs
+++ b/src/Handler/Info/TH.hs
@@ -16,7 +16,7 @@ glossaryTerms :: FilePath -> Q Exp
 glossaryTerms basename = do
   translationsAvailable <- i18nWidgetFilesAvailable' basename
   let terms = Map.mapWithKey (\k _ -> "Msg" <> unPathPiece k) translationsAvailable
-  [e|Map.fromList $(listE . map (\(int, msg) -> tupE [litE . stringL $ repack int, conE $ mkName msg]) $ Map.toList terms)|]
+  [e|Map.fromList $(listE . map (\(int, msg) -> tupE [litE . stringL $ repack int, [e|SomeMessage $(conE $ mkName msg)|]]) $ Map.toList terms)|]
   where
     unPathPiece :: Text -> String
     unPathPiece = repack . mconcat . map (over _head Char.toUpper) . Text.splitOn "-"