diff --git a/src/Language/Haskell/Assignment.hs b/src/Language/Haskell/Assignment.hs
index 227648322..b71965423 100644
--- a/src/Language/Haskell/Assignment.hs
+++ b/src/Language/Haskell/Assignment.hs
@@ -200,7 +200,7 @@ contextPattern :: Assignment
 contextPattern = symbol ContextPattern *> children expressions
 
 cppDirective :: Assignment
-cppDirective = makeTerm <$> symbol CppDirective <*> (Syntax.CPPDirective . Name.name <$> source)
+cppDirective = makeTerm <$> symbol CppDirective <*> (Syntax.CPPDirective <$> source)
 
 defaultDeclaration :: Assignment
 defaultDeclaration = makeTerm <$> symbol DefaultDeclaration <*> children (Syntax.DefaultDeclaration <$> manyTerm expression)
diff --git a/src/Language/Haskell/Syntax.hs b/src/Language/Haskell/Syntax.hs
index 6971ab251..e47f3be66 100644
--- a/src/Language/Haskell/Syntax.hs
+++ b/src/Language/Haskell/Syntax.hs
@@ -562,7 +562,7 @@ instance Show1 PrefixNegation where liftShowsPrec = genericLiftShowsPrec
 
 instance Evaluatable PrefixNegation
 
-newtype CPPDirective a = CPPDirective Name
+newtype CPPDirective a = CPPDirective Text
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
 
 instance Eq1 CPPDirective where liftEq = genericLiftEq