aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/NumericUnderscores/numeric-underscores-pattern.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE NumericUnderscores #-}

module NumericUnderscoresPattern where

classify :: Integer -> String
classify n = case n of
  1_024 -> "kibi"
  65_536 -> "mebi"
  _ -> "other"