#!/bin/sh
# Alignment is wrong in final function in StdPrimsUtil.hs
sed '/^sexp_rd_identifier s = /,/)$/c\
sexp_rd_identifier s = do t <- get_prim "identifier" s\
                          (case t of\
                            SexpLex.STR str -> return str\
                            _ -> error \"expected identifier\")

' "$@"
