GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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 ->
let trm' = case words s of
[] -> Empty
[w] -> K w
ws -> foldr C Empty (map K ws)
[] -> Empty
[w] -> K w
(w:ws) -> foldl (\t -> C t . K) (K w) ws
in return (trm', typeStr)
EInt i -> return (trm, typeInt)