blob: 5e6821124a098889e1ea60426be1f3f4823a9674 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE NoNumericUnderscores #-}
-- Test for NumericUnderscores extension.
-- See Trac #14473
-- This is a testcase for integer literal
-- in NO NumericUnderscores extension.
module NoNumericUnderscores0 where
f :: Int -> ()
f 1_000 = ()
f _ = ()
|