DFudIO.hs

{-# LANGUAGE CPP #-}
module DFudIO(Fudlogue,fudlogue, fudlogue', HasCache(..)) where

import FDefaults
import FudIO(fudIO1)
import Fudget
import Xtypes
--import Cache(allcacheF)
import NewCache(allcacheF)
import CmdLineEnv(argFlag)

#include "defaults.h"

data Fudlogue = Pars [Pars]
data Pars = Cache Bool

parameter_class(Cache,Bool)
parameter_instance(Cache,Fudlogue)

fudlogue = fudlogue' standard
fudlogue' :: Customiser Fudlogue -> F a b -> IO ()
fudlogue' pmod f = fudIO1 (cache f) where
   ps = pmod (Pars [Cache usecache])
   cache = if getCache ps then allcacheF else id


usecache = argFlag "cache" True