GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

refactoring

Browse Source
This commit is contained in:
krangelov
2021-12-19 14:18:19 +01:00
parent f6789fdfbf
commit ef84adf107
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/compiler/GF/Compile/TypeCheck/Concrete.hs
View File

@@ -182,9 +182,9 @@ inferLType gr g trm = case trm of
K s -> K s ->
let trm' = case words s of let trm' = case words s of
[] -> Empty [] -> Empty
[w] -> K w [w] -> K w
ws -> foldr C Empty (map K ws) (w:ws) -> foldl (\t -> C t . K) (K w) ws
in return (trm', typeStr) in return (trm', typeStr)
EInt i -> return (trm, typeInt) EInt i -> return (trm, typeInt)