Skip to content

Commit ba37928

Browse files
committed
reverting : removing DerivingVia extension (not compatible ghc < 8.6.1)
1 parent 0743ca7 commit ba37928

File tree

1 file changed

+4
-6
lines changed

1 file changed

+4
-6
lines changed

doc/cookbook/uverb/UVerb.lhs

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,8 @@ handlers that respond with arbitrary open unions of types.
1010
{-# LANGUAGE ConstraintKinds #-}
1111
{-# LANGUAGE DataKinds #-}
1212
{-# LANGUAGE DeriveGeneric #-}
13+
{-# LANGUAGE DerivingStrategies #-}
14+
{-# LANGUAGE DerivingVia #-}
1315
{-# LANGUAGE FlexibleContexts #-}
1416
{-# LANGUAGE FlexibleInstances #-}
1517
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -154,12 +156,8 @@ Example usage:
154156
155157
```haskell
156158
data Foo = Foo Int Int Int
157-
deriving (Show, Eq, GHC.Generic)
158-
159-
instance ToJSON Foo
160-
161-
instance HasStatus Foo where
162-
type StatusOf Foo = 200
159+
deriving (Show, Eq, GHC.Generic, ToJSON)
160+
deriving HasStatus via WithStatus 200 Foo
163161
164162
data Bar = Bar
165163
deriving (Show, Eq, GHC.Generic)

0 commit comments

Comments
 (0)