Follow hlint suggestion: redundant bracket. (#23)

clash-lang · Jul 18, 2022 · 631facf · 631facf
1 parent 20a6cc7
commit 631facf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src-ghc-flat/Internal.hs b/src-ghc-flat/Internal.hs
@@ -142,9 +142,9 @@ mkSubst' = foldr substSubst [] . mapMaybe mkSubst
 
 -- | Create simple substitution from type equalities
 mkSubst :: Ct -> Maybe ((TcTyVar, TcType),Ct)
-mkSubst ct@(CTyEqCan {..})  = Just ((cc_tyvar,cc_rhs),ct)
-mkSubst ct@(CFunEqCan {..}) = Just ((cc_fsk,TyConApp cc_fun cc_tyargs),ct)
-mkSubst _                   = Nothing
+mkSubst ct@CTyEqCan{..}  = Just ((cc_tyvar,cc_rhs),ct)
+mkSubst ct@CFunEqCan{..} = Just ((cc_fsk,TyConApp cc_fun cc_tyargs),ct)
+mkSubst _                = Nothing
 
 -- | Apply substitution in the evidence of Cts
 substCt :: [(TcTyVar, TcType)] -> Ct -> Ct