From ed1d98c75fb06a45c604637c0d2ef0c835523d84 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Fri, 15 Mar 2024 08:16:32 -0400 Subject: [PATCH] Whitespace only --- Language/Haskell/TH/Desugar/FV.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Language/Haskell/TH/Desugar/FV.hs b/Language/Haskell/TH/Desugar/FV.hs index ca64f57..5207c26 100644 --- a/Language/Haskell/TH/Desugar/FV.hs +++ b/Language/Haskell/TH/Desugar/FV.hs @@ -47,13 +47,13 @@ extractBoundNamesDPat :: DPat -> OSet Name extractBoundNamesDPat = go where go :: DPat -> OSet Name - go (DLitP _) = OS.empty - go (DVarP n) = OS.singleton n + go (DLitP _) = OS.empty + go (DVarP n) = OS.singleton n go (DConP _ _ pats) = foldMap go pats - go (DTildeP p) = go p - go (DBangP p) = go p - go (DSigP p _) = go p - go DWildP = OS.empty + go (DTildeP p) = go p + go (DBangP p) = go p + go (DSigP p _) = go p + go DWildP = OS.empty ----- -- Binding forms