Whitespace only

goldfirere · Mar 15, 2024 · c7d2826 · c7d2826
1 parent 71e6b33
commit c7d2826
Showing 1 changed file with 6 additions and 6 deletions.
diff --git 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