Nicer show for `Assoc`
commitc9824b4e19e47a876a32d84694fb6284bf20431a
authorEvan Czaplicki <info@elm-lang.org>
dateWed 4 Sep 2013, 17:18 (13 years ago)
parent8a91345
compiler/SourceSyntax/Declaration.hs+8−1
@@ -15,4 +15,11 @@ data Declaration tipe var
1515 deriving (Eq, Show)
1616
1717data 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"