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_Less _ -> none
|
||||||
T_ParamSubSpecialChar _ _ -> none
|
T_ParamSubSpecialChar _ _ -> none
|
||||||
|
|
||||||
x -> error ("Unimplemented: " ++ show x)
|
x -> do
|
||||||
|
error ("Unimplemented: " ++ show x) -- STRIP
|
||||||
|
none
|
||||||
|
|
||||||
-- Still in `where` clause
|
-- Still in `where` clause
|
||||||
forInHelper id name words body = do
|
forInHelper id name words body = do
|
||||||
|
|
Loading…
Reference in New Issue