Commit 33754024 authored by Mart Lubbers's avatar Mart Lubbers

Revert an accidental change

parent 647c96a3
Pipeline #15144 passed with stage
in 1 minute and 10 seconds
......@@ -9,7 +9,7 @@ generic gFDomain a :: [a]
gFDomain{|Bool|} = [False,True]
gFDomain{|Char|} = map toChar [0..255]
gFDomain{|UNIT|} = [UNIT]
gFDomain{|PAIR|} dx dy = zipWith PAIR dx dy
gFDomain{|PAIR|} dx dy = [PAIR x y\\x <- dx, y <- dy]
gFDomain{|EITHER|} dx dy = map LEFT dx ++ map RIGHT dy
gFDomain{|CONS|} dx = map CONS dx
gFDomain{|FIELD|} dx = map FIELD dx
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment