Abuse STRIP to avoid crashes on unsupported AST nodes
This commit is contained in:
parent
175d3cc9b7
commit
f2729f73cb
|
@ -887,7 +887,9 @@ build t = do
|
|||
T_Less _ -> none
|
||||
T_ParamSubSpecialChar _ _ -> none
|
||||
|
||||
x -> error ("Unimplemented: " ++ show x)
|
||||
x -> do
|
||||
error ("Unimplemented: " ++ show x) -- STRIP
|
||||
none
|
||||
|
||||
-- Still in `where` clause
|
||||
forInHelper id name words body = do
|
||||
|
|
Loading…
Reference in New Issue