ilyakooo0/elm-bridge
1
0
Fork 0
mirror of https://github.com/ilyakooo0/elm-bridge.git synced 2024-09-11 14:05:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix toElmType for tuple type

Browse Source
This commit is contained in:
MATSUBARA Nobutada 2019-08-04 02:34:35 +09:00
parent c99f8cd96a
commit e9347d3baa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Elm/TyRep.hs
View File

@ -175,7 +175,7 @@ toElmType ty = toElmType' $ typeRep ty
-- List is special because the constructor name is [] in Haskell and List in elm
| con == (typeRepTyCon $ typeRep (Proxy :: Proxy [])) = ETyApp (ETyCon $ ETCon $ "List") (toElmType' (head args))
-- The unit type '()' is a 0-ary tuple.
| isTuple $ tyConName con = ETyTuple $ length args
| isTuple $ tyConName con = foldl ETyApp (ETyTuple $ length args) $ map toElmType' args
| otherwise = typeApplication con args
where
(con, args) = splitTyConApp rep