fix warning

This commit is contained in:
Filip Gralinski 2017-02-19 16:11:59 +01:00
parent 54ebe9d2a8
commit 846c2964cb

View File

@ -66,7 +66,6 @@ processQuery :: Text -> Handler Html
processQuery query = do processQuery query = do
submissions <- findSubmissions query submissions <- findSubmissions query
defaultLayout $ do defaultLayout $ do
aDomId <- newIdent
setTitle "query results" setTitle "query results"
$(widgetFile "query-results") $(widgetFile "query-results")