GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

GF shell, show_operations: nicer looking types for linearization functions

Browse Source 
Adding a lock field to the result type of linearization functions.
TODO: figure out how to add a lock field to the argument types too.
This commit is contained in:
hallgren
2012-09-28 12:38:26 +00:00
parent 8154e480dd
commit 86d17827ee
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/compiler/GF/Grammar/Lookup.hs
View File

@@ -204,8 +204,14 @@ allOpers gr =
ResOper (Just ltyp) _ -> [ltyp] ResOper (Just ltyp) _ -> [ltyp]
ResValue ltyp -> [ltyp] ResValue ltyp -> [ltyp]
ResOverload _ tytrs -> [ltyp | (ltyp,_) <- tytrs] ResOverload _ tytrs -> [ltyp | (ltyp,_) <- tytrs]
CncFun (Just (i,ctx,typ)) _ _ _ -> [L NoLoc (mkProdSimple ctx typ)] CncFun (Just (i,ctx,typ)) _ _ _ ->
[L NoLoc (mkProdSimple ctx (lock' i typ))]
_ -> [] _ -> []
lock' i typ = case lock i typ of
Ok t -> t
_ -> typ
reachable = case greatestResource gr of reachable = case greatestResource gr of
Just r -> allExtendSpecs gr r Just r -> allExtendSpecs gr r
_ -> [] _ -> []