diff --git a/MateFun/MateFun.cabal b/MateFun/MateFun.cabal index c518969c28de0424824fb117bfb07b02ed96f188..077bcfdf8196e77c845be615cff573073dc7c0c8 100644 --- a/MateFun/MateFun.cabal +++ b/MateFun/MateFun.cabal @@ -1,7 +1,7 @@ cabal-version: >= 1.24 build-type: Simple name: MateFun -version: 0.4.1 +version: 0.4.2 license: LGPL license-file: LICENSE-LGPL maintainer: Marcos Viera <mviera@fing.edu.uy> diff --git a/MateFun/src/MateFun/Core.hs b/MateFun/src/MateFun/Core.hs index 4b721d43ffac3f4a1f22c7919284f6349cb2a6a6..385d7d1c9d4dc7faf2754adae3a0431932a6102b 100644 --- a/MateFun/src/MateFun/Core.hs +++ b/MateFun/src/MateFun/Core.hs @@ -129,7 +129,7 @@ instance Show Val where show (VColor c) = "Color" show (VEnum e) = e show (VProd xs) = "(" ++ intercalate "," (map show xs) ++ ")" - show (VSec xs _) = show xs + show (VSec xs _) = foldr (\x -> (++) (show x ++ ":")) "[]" xs esVacia (VSec [] _) = True esVacia _ = False