X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=HighOrdAlu.hs;h=d453f640b91737a2a3dc0af0baa902d175822210;hb=d9fdace4c79166836aaa00d7cfa5541f2dc29c3f;hp=331fa1debd0b4f20a071b126398ee498b552967d;hpb=85a89721bf286e8bef30f845d5c1067b64c73249;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/HighOrdAlu.hs b/HighOrdAlu.hs
index 331fa1d..d453f64 100644
--- a/HighOrdAlu.hs
+++ b/HighOrdAlu.hs
@@ -10,12 +10,11 @@ import Data.RangedWord
 
 constant :: e -> Op D4 e
 constant e a b =
-  e +> (e +> (e +> (singleton e )))
+  copy (lengthT a) e
 
 invop :: Op n Bit
 invop a b = map hwnot a
 
-
 andop :: Op n Bit
 andop a b = zipWith hwand a b