All errors gathered here result from brittle or invalid path handling in values derived from dune variables ("percent forms" or "pforms"). See ocaml/dune#15156 for context.
All the following packages suffer from test configurations that use non-normalized paths from expanded dune variables. Conditional test bounds for all packages are offered at ocaml/opam-repository#30157
| module EffEx = struct | |
| (** Register our new effects *) | |
| type _ Effect.t += | |
| | Print_endline : string -> unit Effect.t | |
| | Read_line : string Effect.t | |
| (** helpers to perform the effects *) | |
| let println s = Effect.perform (Print_endline s) | |
| let readln () = Effect.perform Read_line |
I hereby claim:
To claim this, I am signing this object:
| maybe(just(_)). | |
| maybe(nothing). | |
| bind(nothing, _, nothing). | |
| bind(just(A), P, M) :- call(P, A, M), | |
| maybe(M). | |
| return(X, just(X)). | |
| maybe_div(_,0,nothing) :- !. |
| class (Enum a, Bounded a, Eq a) => Cyclical a where | |
| next :: a -> a | |
| next a = if a == maxBound then minBound else succ a | |
| prev :: a -> a | |
| prev a = if a == minBound then maxBound else pred a | |
| data Direction = North | East | South | West | |
| deriving (Show, Enum, Bounded, Eq) | |
| instance Cyclical Direction |
| (* either turn left (L) or right (R) 90 degrees, then walk forward the given number of blocks, ending at a new intersection. *) | |
| (* Relative *) | |
| datatype relative_direction = L | R | |
| type distance = int | |
| datatype instruction = Inst of relative_direction * distance | |
| fun dirFromChar c = case c of #"L" => L | |
| | #"R" => R |