Commit e355d95e authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] add todo

parent 0a00039d
...@@ -78,7 +78,8 @@ instance decodeContact' :: DecodeJson Contact' where ...@@ -78,7 +78,8 @@ instance decodeContact' :: DecodeJson Contact' where
} }
-- | TODO rename Contact with User
-- and fix shared decodeJson
newtype Contact = newtype Contact =
Contact Contact
{ id :: Int { id :: Int
...@@ -111,7 +112,6 @@ instance decodeContact :: DecodeJson Contact where ...@@ -111,7 +112,6 @@ instance decodeContact :: DecodeJson Contact where
, userId , userId
} }
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
newtype User = newtype User =
User User
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment