From: Matthijs Kooijman Date: Fri, 28 Aug 2009 14:08:21 +0000 (+0200) Subject: Fix typo. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=ac1b16498d945e9a9ece8b061ddd2cd00d1172b5;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Fix typo. --- diff --git "a/c\316\273ash/CLasH/VHDL/Generate.hs" "b/c\316\273ash/CLasH/VHDL/Generate.hs" index 5881007..9e2d0a5 100644 --- "a/c\316\273ash/CLasH/VHDL/Generate.hs" +++ "b/c\316\273ash/CLasH/VHDL/Generate.hs" @@ -207,7 +207,7 @@ mkConcSm (bndr, app@(CoreSyn.App _ _))= do let valargs = get_val_args (Var.varType f) args genApplication (Left bndr) f (map Left valargs) --- A single alt case must be a selector. This means thee scrutinee is a simple +-- A single alt case must be a selector. This means the scrutinee is a simple -- variable, the alternative is a dataalt with a single non-wild binder that -- is also returned. mkConcSm (bndr, expr@(CoreSyn.Case (CoreSyn.Var scrut) b ty [alt]))