diff --git a/src/Data/Graph/AdjList.hs b/src/Data/Graph/AdjList.hs
index a3f190478..d7f1b80aa 100644
--- a/src/Data/Graph/AdjList.hs
+++ b/src/Data/Graph/AdjList.hs
@@ -117,7 +117,7 @@ taggedGraphToAdjList = accumToAdj . adjMapToAccum . adjacencyMap . toGraph . sim
             V.Module{}   -> MODULE
             V.Variable{} -> VARIABLE
 
--- Annotate all vertices of a 'Graph' with a 'Tag', starting from 0.
+-- Annotate all vertices of a 'Graph' with a 'Tag', starting from 1.
 tagGraph :: Graph vertex -> Graph (vertex, Tag)
 tagGraph = run . runFresh 1 . go where
   go :: Graph vertex -> Eff '[Fresh] (Graph (vertex, Tag))
diff --git a/src/Data/Project.hs b/src/Data/Project.hs
index 206e021d6..19c24a9c3 100644
--- a/src/Data/Project.hs
+++ b/src/Data/Project.hs
@@ -4,7 +4,7 @@ module Data.Project (
   -- * Projects
     ProjectF (..)
   , Project
-  , PB
+  , PBProject
   , ProjectException (..)
   , fromPB
   , projectExtensions
@@ -52,13 +52,13 @@ type Project = ProjectF [] [] FilePath
 
 -- | This 'Project' type is protobuf-compatible, and corresponds with
 -- the @Project@ message declaration present in types.proto.
-type PB = ProjectF NestedVec UnpackedVec Text
+type PBProject = ProjectF NestedVec UnpackedVec Text
 
-deriving instance Message PB
-instance Named PB where nameOf _ = "Project"
+deriving instance Message PBProject
+instance Named PBProject where nameOf _ = "Project"
 
--- | Convert from a packed protobuf representatio nto a more useful one.
-fromPB :: PB -> Project
+-- | Convert from a packed protobuf representation to a more useful one.
+fromPB :: PBProject -> Project
 fromPB Project {..} = Project
   { projectRootDir     = T.unpack projectRootDir
   , projectBlobs       = toList projectBlobs