diff options
Diffstat (limited to 'utils/check-exact/Main.hs')
| -rw-r--r-- | utils/check-exact/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/check-exact/Main.hs b/utils/check-exact/Main.hs index 2b93f2553e..73c99345f2 100644 --- a/utils/check-exact/Main.hs +++ b/utils/check-exact/Main.hs @@ -518,7 +518,7 @@ changeLocalDecls libdir (L l p) = do let binds' = (HsValBinds van' (ValBinds sortKey (listToBag $ decl':oldBinds) (sig':os':oldSigs))) - return (L lm (Match an mln pats (GRHSs noExtField rhs binds'))) + return (L lm (Match an mln pats (GRHSs emptyComments rhs binds'))) replaceLocalBinds x = return x return (L l p') @@ -548,7 +548,7 @@ changeLocalDecls2 libdir (L l p) = do let sortKey = captureOrder decls let binds = (HsValBinds an (ValBinds sortKey (listToBag $ [decl']) [sig'])) - return (L lm (Match ma mln pats (GRHSs noExtField rhs binds))) + return (L lm (Match ma mln pats (GRHSs emptyComments rhs binds))) replaceLocalBinds x = return x return (L l p') |