Browse files

Update Strict/Pass.lhs

  • Loading branch information...
1 parent f0ef0f7 commit aea37c45b5faceff2d1b4d1b2fe9bb8979ec426d @michaelt michaelt committed Jan 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Strict/Pass.lhs
View
2 Strict/Pass.lhs
@@ -40,7 +40,7 @@ strictifyExpr e@(App e1 e2)
App _ _ -> translate
Case _ _ _ _ -> translate
Cast _ _ -> translate -- May as well, these two don't
- Note _ _ -> translate -- appear on types anyway
+ Tick _ _ -> translate -- appear on types anyway
_ -> return e -- N.b. don't need to consider lets since they will have been eliminated already
where
translate = do

0 comments on commit aea37c4

Please sign in to comment.