From ac288386c44bdfab783ae2cdc0882d411a9c6b00 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 14 Oct 2014 11:15:18 +0000 Subject: the compiler now allows + to be used as a floating point addition in the abstract syntax --- src/runtime/haskell/PGF/Binary.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/runtime/haskell/PGF/Binary.hs') diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index ca2784da2..9a74ac2f2 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -170,6 +170,7 @@ instance Binary Instr where put (EVAL (GLOBAL id) (UpdateCall b c)) = putWord8 51 >> put id >> put (b,c) put (DROP n l ) = putWord8 52 >> put (n,l) put (FAIL ) = putWord8 56 + put (ADD ) = putWord8 60 instance Binary Type where put (DTyp hypos cat exps) = put (hypos,cat,exps) -- cgit v1.2.3