)
where
-import GHC.Exts (State#)
+--import GHC.Exts (State#)
import Panic
import Data.IORef
diffFuel _ _ = 0
#endif
--- stop warnings about things that aren't used
-_unused :: State# () -> FS.FastString
-_unused = undefined panic
-
-
data FuelState = FuelState { fs_fuellimit :: OptimizationFuel, fs_lastpass :: String }
newtype FuelMonad a = FuelMonad (FuelState -> (a, FuelState))