Commit 20e4e335 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Wibble fixing overlapped pattern

parent f01ea859
......@@ -704,8 +704,8 @@ rep_val_binds (ValBindsOut binds sigs)
= do { core1 <- rep_binds' (unionManyBags (map snd binds))
; core2 <- rep_sigs' sigs
; return (core1 ++ core2) }
rep_val_binds (ValBindsOut binds sigs)
= panic "rep_val_binds: ValBindsOut"
rep_val_binds (ValBindsIn binds sigs)
= panic "rep_val_binds: ValBindsIn"
rep_binds :: LHsBinds Name -> DsM [Core TH.DecQ]
rep_binds binds = do { binds_w_locs <- rep_binds' binds
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment