8870acd · ormolu · git.iko.soy

git.iko.soy/ormolu

Replace weird whitespace characters by normal spaces

I'm just curios of their origin. If I'm not mistaken they were introduced by @yumiova.

commit8870acd41f3a5adacbe3b66ce4b5f011ccf4d876 authormrkkrp <mark.karpov@tweag.io> dateMon 5 Aug 2019, 21:01 (7 years ago) parent09e2a53

8 files changed+16−16

compare with master

unifiedsplit

data/examples/declaration/value/function/do.hs+1−1 src/Ormolu/Printer/Combinators.hs+1−1 src/Ormolu/Printer/Meat/Declaration/Class.hs+3−3 src/Ormolu/Printer/Meat/Declaration/Data.hs+2−2 src/Ormolu/Printer/Meat/Declaration/Instance.hs+1−1 src/Ormolu/Printer/Meat/Declaration/TypeFamily.hs+1−1 src/Ormolu/Printer/Meat/Declaration/Value.hs+6−6 src/Ormolu/Printer/Meat/Type.hs+1−1

data/examples/declaration/value/function/do.hs+1−1

@@ -40,7 +40,7 @@ foo = do

4040

4141 c <- a + b

4242 print c

43− rec something $ do

43+ rec something $ do

4444 x <- a

4545 print x

4646

src/Ormolu/Printer/Combinators.hs+1−1

@@ -181,7 +181,7 @@ backticks m = do

181181-- | Surround given entity by banana brackets (i.e., from arrow notation.)

182182

183183banana :: R () -> R ()

184−banana m = sitcc $ do

184+banana m = sitcc $ do

185185 txt "(|"

186186 ospaces m

187187 txt "|)"

src/Ormolu/Printer/Meat/Declaration/Class.hs+3−3

@@ -41,9 +41,9 @@ p_classDecl ctx name tvars fixity fdeps csigs cdefs cats catdefs = do

4141 dependencySpans = getLoc <$> fdeps

4242 combinedSpans = getLoc ctx : (signatureSpans ++ dependencySpans)

4343 txt "class"

44− switchLayout combinedSpans $ do

44+ switchLayout combinedSpans $ do

4545 breakpoint

46− inci $ do

46+ inci $ do

4747 p_classContext ctx

4848 switchLayout signatureSpans $ do

4949 p_infixDefHelper

@@ -73,7 +73,7 @@ p_classDecl ctx name tvars fixity fdeps csigs cdefs cats catdefs = do

7373 else newline

7474

7575p_classContext :: LHsContext GhcPs -> R ()

76−p_classContext ctx = unless (null (unLoc ctx)) $ do

76+p_classContext ctx = unless (null (unLoc ctx)) $ do

7777 located ctx p_hsContext

7878 breakpoint

7979 txt "=> "

src/Ormolu/Printer/Meat/Declaration/Data.hs+2−2

@@ -30,12 +30,12 @@ p_dataDecl style name tpats fixity HsDataDefn {..} = do

3030 txt $ case dd_ND of

3131 NewType -> "newtype"

3232 DataType -> "data"

33− txt $ case style of

33+ txt $ case style of

3434 Associated -> mempty

3535 Free -> " instance"

3636 switchLayout (getLoc name : fmap getLoc tpats) $ do

3737 breakpoint

38− inci $ p_infixDefHelper

38+ inci $ p_infixDefHelper

3939 (isInfix fixity)

4040 inci

4141 (p_rdrName name)

src/Ormolu/Printer/Meat/Declaration/Instance.hs+1−1

@@ -69,7 +69,7 @@ p_clsInstDecl = \case

6969 case cid_poly_ty of

7070 HsIB {..} -> located hsib_body $ \x -> do

7171 breakpoint

72− inci $ do

72+ inci $ do

7373 match_overlap_mode cid_overlap_mode breakpoint

7474 p_hsType x

7575 -- GHC's AST does not necessarily store each kind of element in source

src/Ormolu/Printer/Meat/Declaration/TypeFamily.hs+1−1

@@ -26,7 +26,7 @@ p_famDecl style FamilyDecl {..} = do

2626 DataFamily -> Nothing <$ txt "data"

2727 OpenTypeFamily -> Nothing <$ txt "type"

2828 ClosedTypeFamily eqs -> Just eqs <$ txt "type"

29− txt $ case style of

29+ txt $ case style of

3030 Associated -> mempty

3131 Free -> " family"

3232 let HsQTvs {..} = fdTyVars

src/Ormolu/Printer/Meat/Declaration/Value.hs+6−6

@@ -235,7 +235,7 @@ p_grhs' pretty style (GRHS NoExt guards body) =

235235 txt "| "

236236 sitcc (sep (comma >> breakpoint) (sitcc . located' p_stmt) xs)

237237 space

238− txt $ case style of

238+ txt $ case style of

239239 EqualSign -> "="

240240 RightArrow -> "->"

241241 breakpoint

@@ -248,14 +248,14 @@ p_hsCmd :: HsCmd GhcPs -> R ()

248248p_hsCmd = \case

249249 HsCmdArrApp NoExt body input arrType _ -> do

250250 located body p_hsExpr

251− txt $ case arrType of

251+ txt $ case arrType of

252252 HsFirstOrderApp -> " -<"

253253 HsHigherOrderApp -> " -<<"

254254 placeHanging (exprPlacement (unLoc input)) $

255255 located input p_hsExpr

256− HsCmdArrForm NoExt form Prefix _ cmds -> banana $ sitcc $ do

256+ HsCmdArrForm NoExt form Prefix _ cmds -> banana $ sitcc $ do

257257 located form p_hsExpr

258− unless (null cmds) $ do

258+ unless (null cmds) $ do

259259 breakpoint

260260 inci (sequence_ (intersperse breakpoint (located' p_hsCmdTop <$> cmds)))

261261 HsCmdArrForm NoExt form Infix _ [left, right] -> do

@@ -406,7 +406,7 @@ p_hsRecField

406406 -> R ()

407407p_hsRecField = \HsRecField {..} -> do

408408 located hsRecFieldLbl atom

409− unless hsRecPun $ do

409+ unless hsRecPun $ do

410410 txt " = "

411411 located hsRecFieldArg p_hsExpr

412412

@@ -607,7 +607,7 @@ p_hsExpr = \case

607607 HsSpliceE NoExt splice -> p_hsSplice splice

608608 HsProc NoExt p e -> do

609609 txt "proc"

610− located p $ \x -> do

610+ located p $ \x -> do

611611 breakpoint

612612 inci (p_pat x)

613613 breakpoint

src/Ormolu/Printer/Meat/Type.hs+1−1

@@ -165,7 +165,7 @@ p_conDeclField (XConDeclField NoExt) = notImplemented "XConDeclField"

165165

166166tyVarsToTypes :: LHsQTyVars GhcPs -> [LHsType GhcPs]

167167tyVarsToTypes = \case

168− HsQTvs {..} -> fmap tyVarToType <$> hsq_explicit

168+ HsQTvs {..} -> fmap tyVarToType <$> hsq_explicit

169169 XLHsQTyVars {} -> notImplemented "XLHsQTyVars"

170170

171171tyVarToType :: HsTyVarBndr GhcPs -> HsType GhcPs