Incorrect compilation of type synonyms

[flupe]

Bug reported by @liesnikov.

private variable @0 a : Set

Ap : (p : @0 a → Set) → @0 a → Set
Ap p x = p x
{-# COMPILE AGDA2HS Ap #-}

Expected output:

type Ap p = p

Actual output:

type Ap x = p

[VictorCMiraldo]

This seems to be happening here:

agda2hs/src/Agda2Hs/Compile/TypeDefinition.hs

Line 31 in 9388b77

as <- compileTypeArgs defType namedClausePats

The namedClausePats has both arguments, but the compileDom of the first argument returns DODropped, causing it to be ignored by the compileTypeArgs, whereas it should select the other variable to be DODrpped.