mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 06:07:21 +03:00
ormolu
This commit is contained in:
parent
c9bfb5d7aa
commit
bce88c3d98
@ -68,7 +68,7 @@ prettyConstraint ppe = \case
|
|||||||
Effectful var -> "!" <> prettyVar var
|
Effectful var -> "!" <> prettyVar var
|
||||||
Eq v0 v1 -> sep " " [prettyVar v0, "=", prettyVar v1]
|
Eq v0 v1 -> sep " " [prettyVar v0, "=", prettyVar v1]
|
||||||
where
|
where
|
||||||
pany :: Show a => a -> Pretty ColorText
|
pany :: (Show a) => a -> Pretty ColorText
|
||||||
pany = string . show
|
pany = string . show
|
||||||
|
|
||||||
pc = prettyConstructorReference ppe
|
pc = prettyConstructorReference ppe
|
||||||
|
@ -10,7 +10,7 @@ import Unison.Util.Pretty
|
|||||||
import qualified Unison.Util.Pretty as P
|
import qualified Unison.Util.Pretty as P
|
||||||
import Unison.Var
|
import Unison.Var
|
||||||
|
|
||||||
prettyVar :: Var v => v -> Pretty ColorText
|
prettyVar :: (Var v) => v -> Pretty ColorText
|
||||||
prettyVar v =
|
prettyVar v =
|
||||||
let go x =
|
let go x =
|
||||||
let (d, m) = divMod x 26
|
let (d, m) = divMod x 26
|
||||||
|
@ -75,7 +75,7 @@ prettyGADT env ctorType r name dd =
|
|||||||
constructor (n, (_, _, t)) =
|
constructor (n, (_, _, t)) =
|
||||||
prettyPattern env ctorType name (ConstructorReference r n)
|
prettyPattern env ctorType name (ConstructorReference r n)
|
||||||
<> fmt S.TypeAscriptionColon " :"
|
<> fmt S.TypeAscriptionColon " :"
|
||||||
`P.hang` TypePrinter.prettySyntax env t
|
`P.hang` TypePrinter.prettySyntax env t
|
||||||
header = prettyEffectHeader name (DD.EffectDeclaration dd) <> fmt S.ControlKeyword " where"
|
header = prettyEffectHeader name (DD.EffectDeclaration dd) <> fmt S.ControlKeyword " where"
|
||||||
|
|
||||||
prettyPattern ::
|
prettyPattern ::
|
||||||
@ -129,7 +129,7 @@ prettyDataDecl (PrettyPrintEnvDecl unsuffixifiedPPE suffixifiedPPE) r name dd =
|
|||||||
P.group $
|
P.group $
|
||||||
styleHashQualified'' (fmt (S.TypeReference r)) fname
|
styleHashQualified'' (fmt (S.TypeReference r)) fname
|
||||||
<> fmt S.TypeAscriptionColon " :"
|
<> fmt S.TypeAscriptionColon " :"
|
||||||
`P.hang` runPretty suffixifiedPPE (TypePrinter.prettyRaw Map.empty (-1) typ)
|
`P.hang` runPretty suffixifiedPPE (TypePrinter.prettyRaw Map.empty (-1) typ)
|
||||||
header = prettyDataHeader name dd <> fmt S.DelimiterChar (" = " `P.orElse` "\n = ")
|
header = prettyDataHeader name dd <> fmt S.DelimiterChar (" = " `P.orElse` "\n = ")
|
||||||
|
|
||||||
-- Comes up with field names for a data declaration which has the form of a
|
-- Comes up with field names for a data declaration which has the form of a
|
||||||
|
Loading…
Reference in New Issue
Block a user