From b3ab31208849ebdd86e1e98fef4534c473480363 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Mon, 18 Jan 2021 20:57:33 -0700
Subject: [PATCH] more casing

---
 agent/src/Handler/V0.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/agent/src/Handler/V0.hs b/agent/src/Handler/V0.hs
index 9e21ede6c..6678604f2 100644
--- a/agent/src/Handler/V0.hs
+++ b/agent/src/Handler/V0.hs
@@ -153,7 +153,7 @@ expirationOsVersionLatest = 60
 getOsVersionLatest :: MonadIO m => AgentCtx -> m (Maybe Version)
 getOsVersionLatest ctx = do
     now <- liftIO getCurrentTime
-    let osVersionCache = appOSVersionLatest ctx
+    let osVersionCache = appOsVersionLatest ctx
     mCache <- liftIO . readIORef $ osVersionCache
 
     case mCache of
@@ -164,7 +164,7 @@ getOsVersionLatest ctx = do
 
 repopulateCache :: MonadIO m => AgentCtx -> m (Maybe Version)
 repopulateCache ctx = do
-    let osVersionCache = appOSVersionLatest ctx
+    let osVersionCache = appOsVersionLatest ctx
     let s              = appSettings ctx
     eitherV <- interp s $ Reg.getLatestAgentVersion