Clarify an unexpected situation

This commit is contained in:
John Wiegley 2018-04-19 01:20:27 -07:00
parent aad7bcd525
commit 5039ac9c34

View file

@ -178,7 +178,7 @@ pruneTree = cataM $ \(FlaggedF (b, Compose x)) -> do
pruneKeyName (StaticKey n p) = StaticKey n p
pruneKeyName (DynamicKey k)
| Just k' <- pruneAntiquoted k = DynamicKey k'
| otherwise = StaticKey "unused" Nothing
| otherwise = StaticKey "<unused?>" Nothing
pruneParams :: Params (Maybe NExprLoc) -> Params NExprLoc
pruneParams (Param n) = Param n