diff --git a/Handler/Query.hs b/Handler/Query.hs
index d6b48c8..a851aee 100644
--- a/Handler/Query.hs
+++ b/Handler/Query.hs
@@ -66,7 +66,6 @@ processQuery :: Text -> Handler Html
 processQuery query = do
   submissions <- findSubmissions query
   defaultLayout $ do
-    aDomId <- newIdent
     setTitle "query results"
     $(widgetFile "query-results")