Commit 514da0a6 authored by qrczak's avatar qrczak
Browse files

[project @ 2000-08-07 23:29:46 by qrczak]

Use \{ \} in regex instead of { } for literal { }.
Hope it should be OK in theory; needed in practice here.
parent e415f297
{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
-- $Id: Main.hs,v 1.51 2000/08/06 12:19:21 panne Exp $
-- $Id: Main.hs,v 1.52 2000/08/07 23:29:46 qrczak Exp $
--
-- GHC Driver program
--
......@@ -1081,7 +1081,7 @@ getOptionsFromSource file
-> return (words opts)
| otherwise -> return []
optionRegex = mkRegex "{-#[ \t]+OPTIONS[ \t]+(.*)#-}"
optionRegex = mkRegex "\\{-#[ \t]+OPTIONS[ \t]+(.*)#-\\}"
-----------------------------------------------------------------------------
-- Main loop
......
Supports Markdown
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