Skip to content

Commit

Permalink
Add spaces
Browse files Browse the repository at this point in the history
  • Loading branch information
ncave committed Feb 23, 2019
1 parent f163cc1 commit ae14825
Show file tree
Hide file tree
Showing 8 changed files with 8 additions and 8 deletions.
2 changes: 1 addition & 1 deletion src/absil/il.fs
Original file line number Diff line number Diff line change
Expand Up @@ -170,7 +170,7 @@ let splitTypeNameRight nm =
/// This is used to store event, property and field maps.
type LazyOrderedMultiMap<'Key, 'Data when 'Key : equality>(keyf : 'Data -> 'Key, lazyItems : Lazy<'Data list>) =

let quickMap=
let quickMap =
lazyItems |> lazyMap (fun entries ->
let t = new Dictionary<_, _>(entries.Length, HashIdentity.Structural)
do entries |> List.iter (fun y ->
Expand Down
2 changes: 1 addition & 1 deletion src/absil/ilread.fs
Original file line number Diff line number Diff line change
Expand Up @@ -1671,7 +1671,7 @@ and seekReadAssemblyManifest (ctxt: ILMetadataReader) pectxt idx =
Locale= readStringHeapOption ctxt localeIdx
CustomAttrsStored = ctxt.customAttrsReader_Assembly
MetadataIndex = idx
AssemblyLongevity=
AssemblyLongevity =
let masked = flags &&& 0x000e
if masked = 0x0000 then ILAssemblyLongevity.Unspecified
elif masked = 0x0002 then ILAssemblyLongevity.Library
Expand Down
2 changes: 1 addition & 1 deletion src/absil/ilreflect.fs
Original file line number Diff line number Diff line change
Expand Up @@ -392,7 +392,7 @@ let emEnv0 =
emEntryPts = []
delayedFieldInits = [] }

let envBindTypeRef emEnv (tref:ILTypeRef) (typT, typB, typeDef)=
let envBindTypeRef emEnv (tref:ILTypeRef) (typT, typB, typeDef) =
match typT with
| null -> failwithf "binding null type in envBindTypeRef: %s\n" tref.Name;
| _ -> {emEnv with emTypMap = Zmap.add tref (typT, typB, typeDef, None) emEnv.emTypMap}
Expand Down
2 changes: 1 addition & 1 deletion src/absil/ilwritepdb.fs
Original file line number Diff line number Diff line change
Expand Up @@ -172,7 +172,7 @@ let pdbGetPdbDebugInfo (embeddedPDBChunk:BinaryChunk) (uncompressedLength:int64)
iddChunk = embeddedPDBChunk;
}

let pdbGetDebugInfo (mvid:byte[]) (timestamp:int32) (filepath:string) (cvChunk:BinaryChunk) (embeddedPDBChunk:BinaryChunk option) (uncompressedLength:int64) (stream:MemoryStream option)=
let pdbGetDebugInfo (mvid:byte[]) (timestamp:int32) (filepath:string) (cvChunk:BinaryChunk) (embeddedPDBChunk:BinaryChunk option) (uncompressedLength:int64) (stream:MemoryStream option) =
match stream, embeddedPDBChunk with
| None, _ | _, None -> [| pdbGetCvDebugInfo mvid timestamp filepath cvChunk |]
| Some s, Some chunk -> [| pdbGetCvDebugInfo mvid timestamp filepath cvChunk; pdbGetPdbDebugInfo chunk uncompressedLength s; |]
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/AugmentWithHashCompare.fs
Original file line number Diff line number Diff line change
Expand Up @@ -704,7 +704,7 @@ let getAugmentationAttribs g (tycon:Tycon) =
TryFindFSharpBoolAttribute g g.attrib_CustomComparisonAttribute tycon.Attribs,
TryFindFSharpBoolAttribute g g.attrib_StructuralComparisonAttribute tycon.Attribs

let CheckAugmentationAttribs isImplementation g amap (tycon:Tycon)=
let CheckAugmentationAttribs isImplementation g amap (tycon:Tycon) =
let m = tycon.Range
let attribs = getAugmentationAttribs g tycon
match attribs with
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/CheckFormatStrings.fs
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@ type FormatInfoRegister =
mutable addZeros : bool
mutable precision : bool}

let newInfo ()=
let newInfo () =
{ leftJustify = false
numPrefixIfPos = None
addZeros = false
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/LexFilter.fs
Original file line number Diff line number Diff line change
Expand Up @@ -2207,7 +2207,7 @@ type LexFilterImpl (lightSyntaxStatus:LightSyntaxStatus, compilingFsLib, lexer,
| IEEE32(v) -> delayMergedToken(IEEE32(if plus then v else -v))
| IEEE64(v) -> delayMergedToken(IEEE64(if plus then v else -v))
| DECIMAL(v) -> delayMergedToken(DECIMAL(if plus then v else System.Decimal.op_UnaryNegation v))
| BIGNUM(v,s) -> delayMergedToken(BIGNUM((if plus then v else "-"+v),s))
| BIGNUM(v,s) -> delayMergedToken(BIGNUM((if plus then v else "-" + v),s))
| _ -> noMerge()
else
noMerge()
Expand Down
2 changes: 1 addition & 1 deletion src/utils/prim-lexing.fs
Original file line number Diff line number Diff line change
Expand Up @@ -171,7 +171,7 @@ namespace Internal.Utilities.Text.Lexing
static member FromChars (arr:char[]) = LexBuffer.FromArrayNoCopy arr

module GenericImplFragments =
let startInterpret(lexBuffer:LexBuffer<char>)=
let startInterpret(lexBuffer:LexBuffer<char>) =
lexBuffer.BufferScanStart <- lexBuffer.BufferScanStart + lexBuffer.LexemeLength;
lexBuffer.BufferMaxScanLength <- lexBuffer.BufferMaxScanLength - lexBuffer.LexemeLength;
lexBuffer.BufferScanLength <- 0;
Expand Down

0 comments on commit ae14825

Please sign in to comment.