From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Thu, 23 Jul 2009 16:03:54 +0000 (+0200)
Subject: Also add NoGenerics pragma to the other types.hs files
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=aa4e9c5711eaa8fef698c9af0290b1fa65321c79;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Also add NoGenerics pragma to the other types.hs files
---

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)