From a458406e367be83e1c6294ac40323b0980df750d Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Mon, 7 Aug 2023 16:18:58 +0200
Subject: [PATCH] Repro for too complicated to desugar problem

---
 src/HordeAd/Core/Engine.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/HordeAd/Core/Engine.hs b/src/HordeAd/Core/Engine.hs
index 647b61592..ffd21a55e 100644
--- a/src/HordeAd/Core/Engine.hs
+++ b/src/HordeAd/Core/Engine.hs
@@ -67,7 +67,7 @@ rev
      , vals ~ Value astvals, Value vals ~ vals )
   => (astvals -> g FullSpan r y) -> vals -> vals
 rev f vals = revDtMaybe f vals Nothing
-{- TODO: RULE left-hand side too complicated to desugar
+--{- TODO: RULE left-hand side too complicated to desugar
 {-# SPECIALIZE rev
   :: ( HasSingletonDict y
      , AdaptableDomains (AstDynamic FullSpan) astvals
@@ -75,7 +75,7 @@ rev f vals = revDtMaybe f vals Nothing
      , vals ~ Value astvals, Value vals ~ vals )
   => (astvals -> AstRanked FullSpan Double y) -> vals
   -> vals #-}
--}
+---}
 
 -- | This version additionally takes the sensitivity parameter.
 revDt