@@ -222,7 +222,9 @@ p_hsExpr = \case
222 HsOverLabel NoExt _ v -> do
222 HsOverLabel NoExt _ v -> do
225− HsIPVar NoExt (HsIPName name) -> atom name
225+ HsIPVar NoExt (HsIPName name) -> do
226 HsOverLit NoExt v -> atom (ol_val v)
228 HsOverLit NoExt v -> atom (ol_val v)
227 HsLit NoExt lit -> atom lit
229 HsLit NoExt lit -> atom lit
228 HsLam NoExt mgroup ->
230 HsLam NoExt mgroup ->