wip: cut down scope to only generating HasChunkRefs instances

Author: balacij

code/drasil-lang/lib/Drasil/Database/TH.hs

@@ -1,10 +1,10 @@
 {-# LANGUAGE TemplateHaskellQuotes #-}
 module Drasil.Database.TH (
-    -- * The Magic
-    declareChunkType,
-    -- * Re-exports from GHC.Generics for convenience
-    Generic,
-    Generically(..)
+  -- * The Magic
+  declareHasChunkRefs,
+  -- * Re-exports from GHC.Generics for convenience
+  Generic,
+  Generically(..)
 ) where
 
 import GHC.Generics (Generic, Generically(..))
@@ -14,9 +14,11 @@ import Drasil.Database.Chunk (HasChunkRefs)
 
 -- | Declares that a type is a chunk type; Generates an instance of
 -- 'HasChunkRefs'.
-declareChunkType :: Name -> Q [Dec]
-declareChunkType = deriveGenerically ''HasChunkRefs
--- TODO: 'declareChunkType' can also create a `HasUID` instance.
+declareHasChunkRefs :: Name -> Q [Dec]
+declareHasChunkRefs = deriveGenerically ''HasChunkRefs
+
+-- TODO: Create a 'declareChunkType' that creates a `HasUID` instance along with
+-- the `HasChunkRefs` instance.
 
 -- FIXME: 'deriveGenerically' should belong in `drasil-utils` because it is for
 -- Generically, nothing specific to the database :)

code/drasil-lang/lib/Language/Drasil/Chunk/NamedIdea.hs

@@ -15,7 +15,7 @@ module Language.Drasil.Chunk.NamedIdea (
 import Control.Lens ((^.), makeLenses, Lens')
 
 import Drasil.Database.UID (mkUid, UID, HasUID(..))
-import Drasil.Database.TH (declareChunkType, Generically(..))
+import Drasil.Database.TH (declareHasChunkRefs, Generically(..))
 
 import Language.Drasil.NounPhrase.Core (NP)
 
@@ -57,7 +57,7 @@ data IdeaDict = IdeaDict {
   _np :: NP,
   mabbr :: Maybe String
 }
-declareChunkType ''IdeaDict
+declareHasChunkRefs ''IdeaDict
 makeLenses ''IdeaDict
 
 -- | Equal if 'UID's are equal.