Small stylistic adjustments.

UU-ComputerScience · Feb 17, 2012 · b5931c3 · b5931c3
1 parent 82c8b38
commit b5931c3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/EHC/src/ehc/Core/Trf/Fusion.cag b/EHC/src/ehc/Core/Trf/Fusion.cag
@@ -67,7 +67,7 @@ SEM CExpr
 -- whose @func is fusible. 
 ------------------------------------------------------------------------------
 
-ATTR CExpr [ || isFusible : Bool ]
+ATTR CExpr [ | | isFusible : Bool ]
 
 SEM CExpr
         | Var loc.isFusible           = isJust (Map.lookup (acbrefNm @ref) @lhs.fuseMp)
@@ -115,7 +115,7 @@ WRAPPER CodeAGItf
 type FuncS  = Set.Set HsName
 }
 
-ATTR CodeAGItf AllCodeNT [lamMp  : LamMp  | | ] -- passed in, contains which functions have which fusion roles
+ATTR CodeAGItf AllCodeNT [lamMp : LamMp  | | ] -- passed in, contains which functions have which fusion roles
 ATTR AllCodeNT [fuseMp : FuncMp | | ] -- starts blank, this will contain the transformed code (circular dependecy) for the functions that need to be inlined for fusion 
 
 SEM CodeAGItf