Use dots to join pretty-printed LCases.
commit0d1d7469255aa778236e5d706bc218de18055565
authorMatus Tejiscak <ziman@functor.sk>
dateThu 27 Mar 2014, 17:40 (13 years ago)
parentb44cf97
src/IRTS/Lang.hs+1−1
@@ -245,7 +245,7 @@ instance Show LExp where
245245 fmt [alt]
246246 = "\t" ++ ind ++ " | " ++ showAlt env (ind ++ " ") alt
247247 fmt (alt:as)
248− = "\t" ++ ind ++ " | " ++ showAlt env (ind ++ " ` ") alt
248+ = "\t" ++ ind ++ " | " ++ showAlt env (ind ++ " . ") alt
249249 ++ "\n" ++ fmt as
250250
251251 show' env ind (LConst c) = show c