tilia-0.1.3.0: corpora/vendored/other/extensions-turned-on-by-flags-out.hs

{-# OPTIONS_GHC -XLambdaCase -fbang-patterns #-}
{-# OPTIONS_GHC -fglasgow-exts #-}

module Flags where

classify :: Int -> String
classify = \case
  0 -> "zero"
  _ -> "other"

strict :: Int -> Int
strict !n = n

both :: (forall a. a -> a) -> (Int, Bool)
both f = (f 1, f True)