Refine naming to read slightly better

lamdera · Apr 28, 2024 · e6022ea · e6022ea
1 parent f8f8b2b
commit e6022ea
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 12 deletions.
diff --git a/builder/src/Generate.hs b/builder/src/Generate.hs
@@ -79,7 +79,7 @@ prod root details (Build.Artifacts pkg _ roots modules) =
       checkForDebugUses objects
       let graph_ = objectsToGlobalGraph objects
       graph <- Task.io $ Lamdera.AppConfig.injectConfig graph_
-      longNamesEnabled <- Task.io $ Lamdera.isLongNamesEnabled
+      longNamesEnabled <- Task.io $ Lamdera.useLongNames
       let mode = Mode.Prod (Mode.shortenFieldNames graph)
                    & Lamdera.alternativeImplementationWhen longNamesEnabled
                        (Mode.Prod (Mode.legibleFieldNames graph))

diff --git a/extra/Lamdera.hs b/extra/Lamdera.hs
@@ -45,8 +45,7 @@ module Lamdera
   , isWireEnabled_
   , useLongNames_
   , enableLongNames
-  , isLongNamesEnabled
-  , isLongNamesEnabled_
+  , useLongNames
   , isTest
   , isLiveMode
   , setLiveMode
@@ -442,20 +441,16 @@ isWireEnabled_ = unsafePerformIO $ isWireEnabled
 useLongNames_ :: MVar Bool
 useLongNames_ = unsafePerformIO $ newMVar False
 
+{-# NOINLINE useLongNames #-}
+useLongNames :: IO Bool
+useLongNames = do
+  readMVar useLongNames_
+
 enableLongNames :: IO ()
 enableLongNames = do
   debug $ "🗜️ enableLongNames"
   modifyMVar_ useLongNames_ (\_ -> pure True)
 
-{-# NOINLINE isLongNamesEnabled #-}
-isLongNamesEnabled :: IO Bool
-isLongNamesEnabled = do
-  readMVar useLongNames_
-
-{-# NOINLINE isLongNamesEnabled_ #-}
-isLongNamesEnabled_ :: Bool
-isLongNamesEnabled_ = unsafePerformIO $ isLongNamesEnabled
-
 
 isTest :: IO Bool
 isTest = do