git.iko.soy/elk
on master help sign in
cosmetic: improve whitespace
681a1ddEvan Czaplicki
src/Canonicalize/Setup.hs+5−1
compare with master
unifiedsplit
@@ -145,8 +145,10 @@ interfacePatches moduleName prefix interface =
145 ]
145 ]
146
146
147
147
148+
148-- PATCHES FOR INDIVIDUAL VALUES
149-- PATCHES FOR INDIVIDUAL VALUES
149
150
151+
150valueToPatches
152valueToPatches
151 :: R.Region
153 :: R.Region
152 -> ModuleName.Canonical
154 -> ModuleName.Canonical
@@ -329,7 +331,7 @@ declToPatches
329declToPatches moduleName (A.A (region,_) decl) =
331declToPatches moduleName (A.A (region,_) decl) =
330 let
332 let
331 topLevel mkPatch x =
333 topLevel mkPatch x =
332− mkPatch x (Var.topLevel moduleName x )
334+ mkPatch x (Var.topLevel moduleName x)
333
335
334 namespaced mkPatch x =
336 namespaced mkPatch x =
335 mkPatch x (Var.fromModule moduleName x)
337 mkPatch x (Var.fromModule moduleName x)
@@ -367,8 +369,10 @@ declToPatches moduleName (A.A (region,_) decl) =
367 )
369 )
368
370
369
371
372+
370-- RESTRICT VISIBLE API OF INTERFACES
373-- RESTRICT VISIBLE API OF INTERFACES
371
374
375+
372restrictToPublicApi :: Module.Interface -> Module.Interface
376restrictToPublicApi :: Module.Interface -> Module.Interface
373restrictToPublicApi interface =
377restrictToPublicApi interface =
374 interface
378 interface