Rename classFile to primaryClass

ccap · Jan 27, 2020 · e387b51 · e387b51
1 parent 6b9d336
commit e387b51
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Ccap/Codegen/Scala.purs b/src/Ccap/Codegen/Scala.purs
@@ -41,7 +41,7 @@ modulePath mod = (Export.toPath mod.exports.scalaPkg) <> ".scala"
 oneModule :: ValidatedModule -> Box
 oneModule mod = do
   let
-    modDecl = classFileType mod
+    modDecl = primaryClass mod
 
     env =
       { defaultPrefix: Nothing
@@ -318,14 +318,14 @@ externalTypeRef importedModule importedType =
       else
         typeName
 
-classFileType :: forall r. { name :: ModuleName, types :: Array TypeDecl | r } -> Maybe TypeDecl
-classFileType { name, types } = Array.find (isClassFile name) types
+primaryClass :: forall r. { name :: ModuleName, types :: Array TypeDecl | r } -> Maybe TypeDecl
+primaryClass { name, types } = Array.find (isPrimaryClass name) types
 
-isClassFile :: ModuleName -> TypeDecl -> Boolean
-isClassFile modName typeD = modName == typeDeclName typeD && (isRecord $ typeDeclTopType typeD)
+isPrimaryClass :: ModuleName -> TypeDecl -> Boolean
+isPrimaryClass modName typeD = modName == typeDeclName typeD && (isRecord $ typeDeclTopType typeD)
 
 needsQualifier :: ModuleName -> TypeDecl -> Boolean
-needsQualifier modName = not <<< isClassFile modName
+needsQualifier modName = not <<< isPrimaryClass modName
 
 packageAnnotation :: Module -> Maybe String
 packageAnnotation = Annotations.field "scala" "package" <<< _.annots