Commit 4935b48b authored by Adam Sandberg Eriksson's avatar Adam Sandberg Eriksson 🐈 Committed by Ben Gamari

Make -XStrict imply -XStrictData

Fixes #11182.

Reviewers: bgamari, simonpj, austin

Reviewed By: simonpj, austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1592

GHC Trac Issues: #11182
parent 3ec8288a
......@@ -3381,6 +3381,7 @@ impliedXFlags
, (Opt_DuplicateRecordFields, turnOn, Opt_DisambiguateRecordFields)
, (Opt_TemplateHaskell, turnOn, Opt_TemplateHaskellQuotes)
, (Opt_Strict, turnOn, Opt_StrictData)
]
-- Note [Documenting optimisation flags]
......
{-# LANGUAGE Strict #-}
-- | Strict should imply StrictData
module Main where
data Lazy a = Lazy ~a
main :: IO ()
main =
case Lazy undefined of
Lazy _ -> putStrLn "Lazy"
......@@ -334,7 +334,7 @@ test('T2464', normal, compile, [''])
test('T3674',
[ignore_output,
extra_clean(['T3674_pre.hi', 'T3674_pre.o', 'T3674_pre', 'T3674_pre.exe'])],
run_command,
run_command,
['$MAKE -s --no-print-directory T3674'])
test('rtsopts001',
......@@ -446,7 +446,7 @@ test('T10182',
extra_clean(['T10182.o', 'T10182a.o', 'T10182.o-boot', 'T10182.hi', 'T10182a.hi', 'T10182.hi-boot']),
run_command,
['$MAKE -s --no-print-directory T10182'])
test('T365',
[extra_clean(['test_preprocessor.txt']),
pre_cmd('touch test_preprocessor.txt'),
......@@ -460,3 +460,4 @@ test('T9360b', normal, run_command, ['{compiler} -e "" --interactive'])
test('T10970', normal, compile_and_run, ['-hide-all-packages -package base -package containers'])
test('T10970a', normal, compile_and_run, [''])
test('T4931', normal, compile_and_run, [''])
test('T11182', normal, compile_and_run, [''])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment