Fix warning
commit9edd19ab2c012599b4f12692df95a87f17b4e369
authorGary Burgess <gary.burgess@gmail.com>
dateTue 13 May 2014, 00:00 (12 years ago)
parentb822bb4
src/Language/PureScript/Sugar/DoNotation.hs+1−1
@@ -48,7 +48,7 @@ desugarDo d =
4848
4949 replace :: Value -> Either ErrorStack Value
5050 replace (Do els) = go els
51− replace (PositionedValue pos d) = rethrowWithPosition pos $ replace d
51+ replace (PositionedValue pos v) = rethrowWithPosition pos $ replace v
5252 replace other = return other
5353
5454 go :: [DoNotationElement] -> Either ErrorStack Value