aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/BinaryLiterals/binary-literals-patterns.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE BinaryLiterals #-}

module BinaryLiteralsPatterns where

decodeBit :: Int -> String
decodeBit n = case n of
  0b0 -> "zero"
  0b1 -> "one"
  _ -> "many"