Successful build (on Thu May 2 01:48:51 CEST 2019)

capricon/src/Data/CaPriCon.hs

@@ -565,7 +565,7 @@ type_of = yb maybeT . go
                     
                 rec_subst (y:t) (Bind Prod _ tx e) = do
                   ty <- go y
-                  (_,dx) <- return (convertDelta ty tx)^.maybeT
+                  (dx,_) <- return (convertDelta ty tx)^.maybeT
                   guard (dx<=0)
                   rec_subst t (subst y e)
                 rec_subst [] x = return x