github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

remove Generic constraints

Browse Source
This commit is contained in:
Ayman Nadeem 2020-01-21 16:13:17 -05:00
parent 3304186ed5
commit 0d269d88ac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-ast/src/Marshal/JSON.hs
View File

@ -23,9 +23,9 @@ import qualified Data.Text as Text
-- Serialize unmarshaled ASTs into JSON representation by auto-deriving Aeson instances generically
class MarshalJSON t where
marshal :: (ToJSON a) => t a -> Value
default marshal :: ( Generic1 t, GMarshalJSON (Rep1 t), ToJSON a) => t a -> Value
marshal = gmarshal . from1
marshal :: (ToJSON a) => t a -> Value -- don't need default signature because they're the same now
-- Create MarshalJSON instances for each type constructor
instance (GMarshalJSON (Rep1 t), Generic1 t) => MarshalJSON t