Merge pull request #74 from garyb/shadow-warnings

Fix shadowed name warnings

Author: garyb

src/Text/Markdown/SlamDown/Eval.purs

@@ -55,7 +55,7 @@ eval fs = everywhereM b i
       nbeTextBox = evalTextBox >>> map (map quoteTextBox)
 
       evalTextBox ∷ SD.TextBox (Compose M.Maybe SD.Expr) → m (M.Maybe (SD.TextBox Identity))
-      evalTextBox tb = T.sequence $ fs.textBox <$> asCode tb <|> pure <$> asLit tb
+      evalTextBox tb' = T.sequence $ fs.textBox <$> asCode tb' <|> pure <$> asLit tb'
         where
           asLit = SD.traverseTextBox (unwrap >>> (_ >>= SD.getLiteral) >>> map Identity)
           asCode = SD.traverseTextBox (unwrap >>> (_ >>= SD.getUnevaluated) >>> map Const)

src/Text/Markdown/SlamDown/Parser.purs

@@ -207,7 +207,7 @@ splitIndentedChunks ss =
 isCodeFence ∷ String → Boolean
 isCodeFence s = isSimpleFence s || (isEvaluatedCode s && isSimpleFence (S.drop 1 s))
   where
-  isSimpleFence s = S.count (isFenceChar <<< S.singleton) s >= 3
+  isSimpleFence s' = S.count (isFenceChar <<< S.singleton) s' >= 3
 
 isEvaluatedCode ∷ String → Boolean
 isEvaluatedCode s = S.take 1 s == "!"
@@ -315,8 +315,8 @@ parseBlocks
   . (SD.Value a)
   ⇒ L.List (Container a)
   → Either String (L.List (SD.Block a))
-parseBlocks cs =
-  case cs of
+parseBlocks =
+  case _ of
     L.Nil → pure L.Nil
     (CText s) : (CSetextHeader n) : cs → do
       hd ← Inline.parseInlines $ L.singleton s
@@ -355,13 +355,13 @@ parseBlocks cs =
       parseBlocks cs
 
 validateBlock ∷ ∀ a. SD.Block a → V.V (Array String) (SD.Block a)
-validateBlock b =
-  case b of
+validateBlock =
+  case _ of
     SD.Paragraph inls → SD.Paragraph <$> traverse Inline.validateInline inls
     SD.Header i inls → SD.Header i <$> traverse Inline.validateInline inls
     SD.Blockquote bls → SD.Blockquote <$> traverse validateBlock bls
     SD.Lst lt blss → SD.Lst lt <$> traverse (traverse validateBlock) blss
-    _ → pure b
+    b → pure b
 
 validateSlamDown ∷ ∀ a. SD.SlamDownP a → V.V (Array String) (SD.SlamDownP a)
 validateSlamDown (SD.SlamDown bls) = SD.SlamDown <$> traverse validateBlock bls

src/Text/Markdown/SlamDown/Pretty.purs

@@ -159,8 +159,8 @@ prettyPrintTextBox t =
     <> M.maybe "" (\x → " (" <> prettyPrintDefault x <> ")") (SD.traverseTextBox unwrap t)
   where
     prettyPrintTemplate ∷ ∀ f. SD.TextBox f → String
-    prettyPrintTemplate t =
-      case t of
+    prettyPrintTemplate =
+      case _ of
         SD.PlainText _ → "______"
         SD.Numeric _ → "#______"
         SD.Date _ → "__-__-____"
@@ -170,8 +170,8 @@ prettyPrintTextBox t =
         SD.DateTime SD.Seconds _ → "__-__-____ __:__:__"
 
     prettyPrintDefault ∷ SD.TextBox SD.Expr → String
-    prettyPrintDefault t =
-      case t of
+    prettyPrintDefault =
+      case _ of
         SD.PlainText def → prettyPrintExpr id id def
         SD.Numeric def → prettyPrintExpr id HN.toString def
         SD.Date def → prettyPrintExpr id prettyPrintDate def

src/Text/Markdown/SlamDown/Traverse.purs

@@ -31,7 +31,7 @@ everywhereM b i (SD.SlamDown bs) =
   b' ∷ SD.Block a → m (SD.Block a)
   b' (SD.Paragraph is) = (SD.Paragraph <$> T.traverse i' is) >>= b
   b' (SD.Header n is) = (SD.Header n <$> T.traverse i' is) >>= b
-  b' (SD.Blockquote bs) = (SD.Blockquote <$> T.traverse b' bs) >>= b
+  b' (SD.Blockquote bs') = (SD.Blockquote <$> T.traverse b' bs') >>= b
   b' (SD.Lst lt bss) = (SD.Lst lt <$> T.traverse (T.traverse b') bss) >>= b
   b' other = b other
 
@@ -66,7 +66,7 @@ everywhereTopDownM b i (SD.SlamDown bs) =
   b' ∷ SD.Block a → m (SD.Block a)
   b' (SD.Paragraph is) = SD.Paragraph <$> T.traverse (i' <=< i) is
   b' (SD.Header n is) = SD.Header n <$> T.traverse (i' <=< i) is
-  b' (SD.Blockquote bs) = SD.Blockquote <$> T.traverse (b' <=< b) bs
+  b' (SD.Blockquote bs') = SD.Blockquote <$> T.traverse (b' <=< b) bs'
   b' (SD.Lst ty bss) = SD.Lst ty <$> T.traverse (T.traverse (b' <=< b)) bss
   b' other = b other
 
@@ -102,8 +102,8 @@ everythingM b i (SD.SlamDown bs) =
   b' ∷ SD.Block a → m r
   b' x@(SD.Paragraph is) = b x >>= \r → F.foldl (<>) r <$> T.traverse i' is
   b' x@(SD.Header _ is) = b x >>= \r → F.foldl (<>) r <$> T.traverse i' is
-  b' x@(SD.Blockquote bs) = b x >>= \r → F.foldl (<>) r <$> T.traverse b' bs
-  b' x@(SD.Lst _ bss) = b x >>= \r → F.foldl (<>) r <<< join <$> T.traverse (\bs → T.traverse b' bs) bss
+  b' x@(SD.Blockquote bs') = b x >>= \r → F.foldl (<>) r <$> T.traverse b' bs'
+  b' x@(SD.Lst _ bss) = b x >>= \r → F.foldl (<>) r <<< join <$> T.traverse (\bs' → T.traverse b' bs') bss
   b' x = b x
 
   i' ∷ SD.Inline a → m r