[follow aliases in head of type applications
John Meacham <john@repetae.net>**20051021040108] hunk ./DataConstructors.hs 249
+followAlias dataTable (EAp a b) = do
+    a' <- followAlias dataTable a
+    return (eAp a' b)
hunk ./DataConstructors.hs 262
+followAliases dataTable ap@EAp {} = case followAlias dataTable ap of
+    Just x -> followAliases dataTable x
+    Nothing -> ap