Fix examples for new model

brendanhay · Jul 28, 2021 · 2d3d931 · 2d3d931
1 parent 4b652f3
commit 2d3d931
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/src/Example/Sheets.hs b/examples/src/Example/Sheets.hs
@@ -48,7 +48,7 @@ exampleAppendValue sheetID range val =  do
   lgr <- newLogger Debug stdout
   env <- newEnv <&> (envLogger .~ lgr) . (envScopes .~ spreadsheetsScope)
   runResourceT . runGoogle env $
-    send  (svaValueInputOption .~ Just "USER_ENTERED" $ spreadsheetsValuesAppend 
+    send  (svaValueInputOption .~ Just SVAVIOUserEntered $ spreadsheetsValuesAppend
           sheetID 
           ( vrMajorDimension .~ Just VRMDRows $ vrValues .~ val $ vrRange .~ Just range $ valueRange) 
           range )