fix(codegen): drop unused language pragmas

vst · May 28, 2024 · 46adee1 · 46adee1
1 parent 765dc01
commit 46adee1
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/src/Postmap/Gencode/Haskell.hs b/src/Postmap/Gencode/Haskell.hs
@@ -83,17 +83,12 @@ mkIdsModule Config {..} records =
             : "Servant"
             : "Text.Show"
             : modules'
-   in [i|{-\# LANGUAGE DeriveAnyClass \#-}
-{-\# LANGUAGE DeriveGeneric \#-}
-{-\# LANGUAGE DerivingVia \#-}
+   in [i|{-\# LANGUAGE DerivingVia \#-}
 {-\# LANGUAGE DuplicateRecordFields \#-}
 {-\# LANGUAGE FlexibleInstances \#-}
 {-\# LANGUAGE GeneralizedNewtypeDeriving \#-}
 {-\# LANGUAGE NoImplicitPrelude \#-}
 {-\# LANGUAGE OverloadedStrings \#-}
-{-\# LANGUAGE RecordWildCards \#-}
-{-\# LANGUAGE StandaloneDeriving \#-}
-{-\# LANGUAGE TypeOperators \#-}
 {-\# OPTIONS_GHC -Wno-orphans \#-}
 
 -- | This module provides for identifiers definitions for records.
@@ -186,10 +181,8 @@ mkRecordDataType config@Config {..} record@Record {..} =
 {-\# LANGUAGE DerivingVia \#-}
 {-\# LANGUAGE DuplicateRecordFields \#-}
 {-\# LANGUAGE FlexibleInstances \#-}
-{-\# LANGUAGE GeneralizedNewtypeDeriving \#-}
 {-\# LANGUAGE NoImplicitPrelude \#-}
 {-\# LANGUAGE OverloadedStrings \#-}
-{-\# LANGUAGE RecordWildCards \#-}
 {-\# LANGUAGE StandaloneDeriving \#-}
 {-\# LANGUAGE TypeOperators \#-}