Idris2/tests/refc/issue2452/BitsCase.idr

mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-20 18:21:47 +03:00
x : Bits8
x = 0

main : IO ()
main = do
  putStrLn $
    case x of
      0 => "good"
      _ => "bad"
[ fix ] Add missing cases for BITS types in `extractInt` e79e4277 ("[ fix ] Make Bits types use int switch statement in RefC") made the RefC backend generate code calling `extractInt` with Bits types, bit did not add the extra cases to `extractInt`. This commit adds the missing cases. Fixes #2452 2022-05-03 13:56:48 +03:00			`x : Bits8`
			`x = 0`

			`main : IO ()`
			`main = do`
			`putStrLn $`
			`case x of`
			`0 => "good"`
			`_ => "bad"`