git.iko.soy/elk
on master help sign in
Nicer show for `Assoc`
c9824b4Evan Czaplicki
compiler/SourceSyntax/Declaration.hs+8−1
compare with master
unifiedsplit
@@ -15,4 +15,11 @@ data Declaration tipe var
15 deriving (Eq, Show)
15 deriving (Eq, Show)
16
16
17data Assoc = L | N | R
17data Assoc = L | N | R
18− deriving (Eq, Show)
18+ deriving (Eq)
19+
20+instance Show Assoc where
21+ show assoc =
22+ case assoc of
23+ L -> "left"
24+ N -> "non"
25+ R -> "right"