Commit 2ed93df2 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Dropped support for untyped AbstractCurry

parent 58c6d8ff
......@@ -147,7 +147,6 @@ data TargetType
| FlatCurry -- ^ FlatCurry
| ExtendedFlatCurry -- ^ Extended FlatCurry
| AbstractCurry -- ^ AbstractCurry
| UntypedAbstractCurry -- ^ Untyped AbstractCurry
deriving (Eq, Show)
-- |Warnings flags
......@@ -369,10 +368,6 @@ options =
(NoArg (onOpts $ \ opts -> opts { optTargetTypes =
nub $ AbstractCurry : optTargetTypes opts }))
"generate (type infered) AbstractCurry code"
, Option "" ["uacy"]
(NoArg (onOpts $ \ opts -> opts { optTargetTypes =
nub $ UntypedAbstractCurry : optTargetTypes opts }))
"generate untyped AbstractCurry code"
, Option "F" []
(NoArg (onPrepOpts $ \ opts -> opts { ppPreprocess = True }))
"use custom preprocessor"
......
......@@ -163,7 +163,6 @@ process opts idx m fn deps
[ (FlatCurry , flatName )
, (ExtendedFlatCurry , extFlatName )
, (AbstractCurry , acyName )
, (UntypedAbstractCurry , uacyName )
, (Parsed , sourceRepName)
]
......
......@@ -328,14 +328,11 @@ writeFlatIntf opts fn env modSum il
outputInterface = EF.writeFlatCurry (useSubDir targetFile) intf
writeAbstractCurry :: Options -> FilePath -> CompilerEnv -> CS.Module -> IO ()
writeAbstractCurry opts fname env modul = do
when acyTarget $ AC.writeCurry (useSubDir $ acyName fname)
$ genAbstractCurry env modul
when uacyTarget $ AC.writeCurry (useSubDir $ uacyName fname)
$ genAbstractCurry env modul
writeAbstractCurry opts fn env mdl = do
when acyTarget $ AC.writeCurry (useSubDir $ acyName fn)
$ genAbstractCurry env mdl
where
acyTarget = AbstractCurry `elem` optTargetTypes opts
uacyTarget = UntypedAbstractCurry `elem` optTargetTypes opts
useSubDir = addCurrySubdirModule (optUseSubdir opts) (moduleIdent env)
type Dump = (DumpLevel, CompilerEnv, String)
......
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