Add missing implementation of *vecN for ReaderCT.
commit64f67b710209adc1ce5a77975d6d55e7203cccd1
authorPaweł Nowak <pawel834@gmail.com>
dateMon 15 Dec 2014, 20:26 (12 years ago)
parentd0ca4e2
Data/Syntax.hs+4
@@ -166,6 +166,10 @@ instance Syntax syn => Syntax (ReaderCT env syn) where
166166 takeWhile1 = clift . takeWhile1
167167 takeTill = clift . takeTill
168168 takeTill1 = clift . takeTill1
169+ vecN n e = ReaderCT $ vecN n . runReaderCT e
170+ ivecN n e = ReaderCT $ ivecN n . runReaderCT e
171+ uvecN n e = ReaderCT $ uvecN n . runReaderCT e
172+ uivecN n e = ReaderCT $ uivecN n . runReaderCT e
169173
170174-- | Execute a computation in an isolated context.
171175--