Commit 0dafee23 authored by Ian Lynagh's avatar Ian Lynagh

Fix stage1 warnings

parent 0f669ab6
......@@ -569,10 +569,12 @@ Here is where we desugar the Template Haskell brackets and escapes
\begin{code}
-- Template Haskell stuff
#ifdef GHCI /* Only if bootstrapping */
#ifdef GHCI
dsExpr (HsBracketOut x ps) = dsBracket x ps
dsExpr (HsSpliceE s) = pprPanic "dsExpr:splice" (ppr s)
#else
dsExpr (HsBracketOut _ _) = panic "dsExpr HsBracketOut"
#endif
dsExpr (HsSpliceE s) = pprPanic "dsExpr:splice" (ppr s)
-- Arrow notation extension
dsExpr (HsProc pat cmd) = dsProcExpr pat cmd
......
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