-- Automatically import modules for any fully qualified identifiers
setDynFlag DynFlags.Opt_ImplicitImportQualified
-- Automatically import modules for any fully qualified identifiers
setDynFlag DynFlags.Opt_ImplicitImportQualified
let from_int_t = SrcLoc.noLoc $ HsExpr.HsVar from_int_t_name
let undef = hsTypedUndef $ coreToHsType ty
let app = SrcLoc.noLoc $ HsExpr.HsApp (from_int_t) (undef)
let from_int_t = SrcLoc.noLoc $ HsExpr.HsVar from_int_t_name
let undef = hsTypedUndef $ coreToHsType ty
let app = SrcLoc.noLoc $ HsExpr.HsApp (from_int_t) (undef)
(CoreSyn.Var f, args) = CoreSyn.collectArgs app
literals = filter (is_lit) args
(CoreSyn.Var f, args) = CoreSyn.collectArgs app
literals = filter (is_lit) args
reduceCoreListToHsList app@(CoreSyn.App _ _) = out
where
(fun, args) = CoreSyn.collectArgs app
reduceCoreListToHsList app@(CoreSyn.App _ _) = out
where
(fun, args) = CoreSyn.collectArgs app