examples/passing/LargeSumType.purs · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on cd4c708 help sign in

35 lines 679 B history raw

1module Main where

3import Control.Monad.Eff.Console (log)

5data Large = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z

7explode A A = "A"

8explode B B = "B"

9explode C C = "C"

10explode D D = "D"

11explode E E = "E"

12explode F F = "F"

13explode G G = "G"

14explode H H = "H"

15explode I I = "I"

16explode J J = "J"

17explode K K = "K"

18explode L L = "L"

19explode M M = "M"

20explode N N = "N"

21explode O O = "O"

22explode P P = "P"

23explode Q Q = "Q"

24explode R R = "R"

25explode S S = "S"

26explode T T = "T"

27explode U U = "U"

28explode V V = "V"

29explode W W = "W"

30explode X X = "X"

31explode Y Y = "Y"

32explode Z Z = "Z"

33explode _ _ = ""

35main = log "Done"