Fix hlint warnings: remove redundant $, use fromMaybe

Author: sarrasoussia

code/drasil-docLang/lib/Drasil/DocumentLanguage.hs

@@ -125,7 +125,7 @@ fillLC sd si@SI{ _sys = sn }
     -- meta-ChunkDB of `drasil-docLang`.
     existingLC = findAllLabelledContent chkdb
     -- Insert new labelled content into ChunkDB
-    chkdb2 = insertAll (nub $ createdLCs) chkdb
+    chkdb2 = insertAll (nub createdLCs) chkdb
     si2 = set systemdb chkdb2 si
 
     containsTraceSec :: DocDesc -> Bool

code/drasil-docLang/lib/Drasil/Sections/Requirements.hs

@@ -30,6 +30,7 @@ import Data.Drasil.Concepts.Math (unit_)
 import qualified Drasil.DocLang.SRS as SRS
 import Drasil.DocumentLanguage.Units (toSentence)
 import Data.List (nub)
+import Data.Maybe (fromMaybe)
 
 import Control.Lens ((^.))
 import Data.Bifunctor (bimap)
@@ -68,7 +69,7 @@ inReq  s = cic "inputValues"  s "Input-Values"  funcReqDom
 inReqWTab :: (Quantity i, MayHaveUnit i) => Maybe Sentence -> [i] -> (ConceptInstance, LabelledContent)
 inReqWTab mbDesc inputs = (inReq desc, table)
   where table = mkInputPropsTable inputs
-        desc = inReqDesc table $ maybe EmptyS id mbDesc
+        desc = inReqDesc table $ fromMaybe EmptyS mbDesc
 
 -- | Adds a generalized introduction for a Non-Fucntional Requirements section. Takes in the contents of that section.
 fReqF :: [Contents] -> Section

code/drasil-example/glassbr/lib/Drasil/GlassBR/Requirements.hs

@@ -16,10 +16,9 @@ import Data.Drasil.Concepts.Math (calculation)
 import Data.Drasil.Concepts.PhysicalProperties (dimension)
 import Data.Drasil.Concepts.Software (errMsg)
 
-import Drasil.DocLang (mkQRTuple, mkQRTupleRef, mkValsSourceTable,
+import Drasil.DocLang (inReqWTab, mkQRTuple, mkQRTupleRef, mkValsSourceTable,
   mkMaintainableNFR, mkPortableNFR, mkCorrectNFR, mkVerifiableNFR,
   mkUnderstandableNFR, mkReusableNFR)
-import Drasil.Sections.Requirements (inReqWTab)
 import Drasil.DocLang.SRS (datCon)
 
 import Theory.Drasil (DataDefinition)