@@ -124,6 +124,9 @@ reorder lexpr@(L s expr) =
124 toDefs (pattern, expr, Nothing) = [ Def pattern expr ]
124 toDefs (pattern, expr, Nothing) = [ Def pattern expr ]
125 toDefs (PVar name, expr, Just tipe) =
125 toDefs (PVar name, expr, Just tipe) =
126 [ TypeAnnotation name tipe, Def (PVar name) expr ]
126 [ TypeAnnotation name tipe, Def (PVar name) expr ]
127+ -- This case won't happen since we've removed everything
128+ -- but Def's and PVars above.
129+ toDefs (_,_,_) = error "Internal compiler error"
128 L _ let' = foldr addDefs body' defss
131 L _ let' = foldr addDefs body' defss