@@ -870,11 +870,11 @@ parseArgs tName opts (RecC conName ts) (Left (_, obj)) =
870870parseArgs tName opts (RecC conName ts) (Right valName) = case (unwrapUnaryRecords opts,ts) of
871871 (True,[(_,st,ty)])-> parseArgs tName opts (NormalC conName [(st,ty)]) (Right valName)
872872 _ -> do
873− obj <- newName "recObj"
874− caseE (varE valName)
875− [ match (conP 'Object [varP obj]) (normalB $ parseRecord opts tName conName ts obj) []
876− , matchFailed tName conName "Object"
877− ]
873+ obj <- newName "recObj"
874+ caseE (varE valName)
875+ [ match (conP 'Object [varP obj]) (normalB $ parseRecord opts tName conName ts obj) []
876+ , matchFailed tName conName "Object"
877+ ]
878878
879879-- Infix constructors. Apart from syntax these are the same as
880880-- polyadic constructors.