@@ -353,7 +353,7 @@ encodeArgs withExp _ (NormalC conName ts) = do
354 ret = noBindS $ [e|return|] `appE` varE mv
354 ret = noBindS $ [e|return|] `appE` varE mv
355 return $ [e|Array|] `appE`
355 return $ [e|Array|] `appE`
356− ([e|V.create|] `appE`
356+ (varE 'V.create `appE`
357 doE (newMV:stmts++[ret]))
357 doE (newMV:stmts++[ret]))
358 match (conP conName $ map varP args)
358 match (conP conName $ map varP args)
359 (normalB $ withExp js)
359 (normalB $ withExp js)