module System.CPUTime.Unsupported
    ( getCPUTime
    , getCpuTimePrecision
    ) where

import GHC.Internal.IO.Exception
import Prelude

getCPUTime :: IO Integer
getCPUTime :: IO Integer
getCPUTime =
    IOError -> IO Integer
forall a. IOError -> IO a
ioError (Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOError
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
UnsupportedOperation
                     String
"getCPUTime"
                     String
"can't get CPU time"
                     Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing)

getCpuTimePrecision :: IO Integer
getCpuTimePrecision :: IO Integer
getCpuTimePrecision =
    IOError -> IO Integer
forall a. IOError -> IO a
ioError (Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOError
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
UnsupportedOperation
                     String
"cpuTimePrecision"
                     String
"can't get CPU time"
                     Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing)