LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-04-25 17:54:44 +02:00
Code Releases Activity

Fixing previous commit

Browse Source
This commit is contained in:
Anthony Scemama 2025-02-12 13:26:36 +01:00
parent 74d56370e8
commit 4a8551be15
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ocaml/Angmom.ml
View File

@ -2,6 +2,7 @@ open Qptypes
open Sexplib.Std open Sexplib.Std
type t = S|P|D|F|G|H|I|J|K|L [@@deriving sexp] type t = S|P|D|F|G|H|I|J|K|L [@@deriving sexp]
type st = t [@@deriving sexp]
let to_string = function let to_string = function
| S -> "S" | S -> "S"
@ -70,9 +71,6 @@ let of_l i =
| x -> raise (Failure ("Angmom should be S|P|D|F|G|H|I|J|K|L")) | x -> raise (Failure ("Angmom should be S|P|D|F|G|H|I|J|K|L"))
type st = t
module Xyz = struct module Xyz = struct
type t = { x: Positive_int.t ; type t = { x: Positive_int.t ;
y: Positive_int.t ; y: Positive_int.t ;