pec 0.2.0 → 0.2.1

raw patch · 2 files changed

+7/−8 lines, 2 files

Files

• Pec/PUtil.hs +6/−7
• pec.cabal +1/−1

@@ -15,12 +15,11 @@ import Grm.Layout import Grm.Lex import Grm.Prims-import Language.Pec.Abs-import Language.Pec.Abs as P import Language.Pec.Par import Paths_pec import System.Console.CmdArgs import qualified Language.Pds.Abs as D+import qualified Language.Pec.Abs as P  copyright :: String copyright = "(C) Brett Letner 2011-2012"@@ -47,12 +46,12 @@ counts (P.Module _ _ _ _ xs) = nub $   [ genericLength (a :: [P.ConC Point])   | P.TyTagged _ a <- universeBi xs ] ++-  [ genericLength (a :: [P.Exp Point]) | ArrayE _ a <- universeBi xs ] ++-  [ pcount a | TyCount _ a <- universeBi xs ] ++-  [ pcount a | CountE _ a <- universeBi xs ]+  [ genericLength (a :: [P.Exp Point]) | P.ArrayE _ a <- universeBi xs ] +++  [ pcount a | P.TyCount _ a <- universeBi xs ] +++  [ pcount a | P.CountE _ a <- universeBi xs ] -pcount :: Count Point -> Integer-pcount (Count _ i) = read i+pcount :: P.Count Point -> Integer+pcount (P.Count _ i) = read i  qual_to_und :: String -> String qual_to_und = map f

@@ -1,6 +1,6 @@ Name: pec -Version: 0.2.0+Version: 0.2.1  Synopsis: pec embedded compiler