@@ -145,8 +145,10 @@ interfacePatches moduleName prefix interface =
145145 ]
146146
147147
148+
148149-- PATCHES FOR INDIVIDUAL VALUES
149150
151+
150152valueToPatches
151153 :: R.Region
152154 -> ModuleName.Canonical
@@ -329,7 +331,7 @@ declToPatches
329331declToPatches moduleName (A.A (region,_) decl) =
330332 let
331333 topLevel mkPatch x =
332− mkPatch x (Var.topLevel moduleName x )
334+ mkPatch x (Var.topLevel moduleName x)
333335
334336 namespaced mkPatch x =
335337 mkPatch x (Var.fromModule moduleName x)
@@ -367,8 +369,10 @@ declToPatches moduleName (A.A (region,_) decl) =
367369 )
368370
369371
372+
370373-- RESTRICT VISIBLE API OF INTERFACES
371374
375+
372376restrictToPublicApi :: Module.Interface -> Module.Interface
373377restrictToPublicApi interface =
374378 interface