(* string-lin-ord.sml *) (* Copyright (C) 2006 Alley Stoughton This file is part of crypto, a cryptogram encoder/decoder. See the file COPYING.txt for copying and usage restrictions *) (* linear ordering structure based on type string *) structure StringLinOrd :> LIN_ORD where type elem = string = struct type elem = string val compare = String.compare end;