Eq1

2024-02-26 14:57:22 -07:00
parent 8c0d0b6fe1
commit 2daf24acac
3 changed files with 57 additions and 41 deletions
--- a/src/Core2Core.hs
+++ b/src/Core2Core.hs
@@ -128,9 +128,7 @@ floatNonStrictCases g = goE
        -- extract the right-hand sides of a list of bindings, traverse each
        -- one, and return the original list of bindings
        travBs :: (Expr' -> Floater Expr') -> [Binding'] -> Floater [Binding']
-        travBs c bs = bs ^.. each . _rhs
-                    & traverse goC
-                    & const (pure bs)
+        travBs c bs = undefined
        -- ^ ??? what the fuck?
        -- ^ 24/02/22: what is this shit lol?