aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/ExtendedLiterals/custom-operator-hash.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE ExtendedLiterals #-}

f64_predecessorIEEE#
  :: Double#
  -> Double#
f64_predecessorIEEE#
  value
  = symetric_result
  where
    symetric_result
      = negateDouble#
      $# f64_successorIEEE#
      $# negateDouble#
      $# value

    infixr 0 $#
    ($#) :: (Double# -> Double#) -> Double# -> Double#
    f $# x = f x