From aa4e9c5711eaa8fef698c9af0290b1fa65321c79 Mon Sep 17 00:00:00 2001 From: Christiaan Baaij Date: Thu, 23 Jul 2009 18:03:54 +0200 Subject: [PATCH] Also add NoGenerics pragma to the other types.hs files --- "c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" | 2 +- "c\316\273ash/CLasH/Translator/TranslatorTypes.hs" | 2 +- "c\316\273ash/CLasH/Utils/Core/CoreShow.hs" | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git "a/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" "b/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" index 90589f8..80d75fc 100644 --- "a/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" +++ "b/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" @@ -1,4 +1,4 @@ -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TemplateHaskell, NoGenerics #-} module CLasH.Normalize.NormalizeTypes where diff --git "a/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" "b/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" index 0ab3b87..2b8777f 100644 --- "a/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" +++ "b/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" @@ -2,7 +2,7 @@ -- Simple module providing some types used by Translator. These are in a -- separate module to prevent circular dependencies in Pretty for example. -- -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TemplateHaskell, NoGenerics #-} module CLasH.Translator.TranslatorTypes where import qualified Control.Monad.Trans.State as State diff --git "a/c\316\273ash/CLasH/Utils/Core/CoreShow.hs" "b/c\316\273ash/CLasH/Utils/Core/CoreShow.hs" index aa1ea80..ac6b1d1 100644 --- "a/c\316\273ash/CLasH/Utils/Core/CoreShow.hs" +++ "b/c\316\273ash/CLasH/Utils/Core/CoreShow.hs" @@ -27,7 +27,7 @@ deriving instance (Show n, OutputableBndr n) => Show (HsTypes.HsType n) deriving instance (Show n, OutputableBndr n) => Show (HsTypes.ConDeclField n) deriving instance (Show x) => Show (SrcLoc.Located x) deriving instance (Show x, OutputableBndr x) => Show (HsExpr.StmtLR x x) -deriving instance (Show x, OutpubableBndr x) => Show (HsExpr.HsTupArg x) +deriving instance (Show x, OutputableBndr x) => Show (HsExpr.HsTupArg x) deriving instance (Show x, OutputableBndr x) => Show (HsExpr.HsExpr x) deriving instance Show (RdrName.RdrName) deriving instance (Show idL, Show idR, OutputableBndr idL, OutputableBndr idR) => Show (HsBinds.HsBindLR idL idR) -- 2.30.2