Fix error when compiling with HSE < 1.16

This commit is contained in:
Daniel Gröber 2014-09-17 23:39:10 +02:00
parent ab0347efaa
commit 34dd8c5bd9
1 changed files with 1 additions and 1 deletions

View File

@ -174,7 +174,7 @@ getSignatureFromHE file lineNo colNo = do
dHeadTyVars (HE.DHParen _ r) = dHeadTyVars r
#else
dHeadTyVars :: HE.DeclHead l -> (HE.Name l, [HE.TyVarBind l])
dHeadTyVars (DHead _ n tys) = (n, tys)
dHeadTyVars (HE.DHead _ n tys) = (n, tys)
#endif
----------------------------------------------------------------