renamed bufferLocalStorageKey to haskellBufferLocalStorageKey

marlowe-playground-client/src/HaskellEditor/State.purs

@@ -11,8 +11,6 @@ import BottomPanel.State (handleAction) as BottomPanel
 import BottomPanel.Types (Action(..), State) as BottomPanel
 import CloseAnalysis (analyseClose)
 import Control.Monad.Except (ExceptT, runExceptT)
-import Control.Monad.Maybe.Extra (hoistMaybe)
-import Control.Monad.Maybe.Trans (runMaybeT)
 import Control.Monad.Reader (runReaderT)
 import Data.Array (catMaybes)
 import Data.Either (Either(..), hush)
@@ -41,7 +39,7 @@ import Servant.PureScript.Settings (SPSettings_)
 import StaticAnalysis.Reachability (analyseReachability)
 import StaticAnalysis.StaticTools (analyseContract)
 import StaticAnalysis.Types (AnalysisState(..), MultiStageAnalysisData(..), _analysisState)
-import StaticData (bufferLocalStorageKey)
+import StaticData (haskellBufferLocalStorageKey)
 import Types (WebData)
 import Webghc.Server (CompileRequest(..))
 
@@ -60,11 +58,11 @@ handleAction ::
   HalogenM State Action ChildSlots Void m Unit
 handleAction _ Init = do
   editorSetTheme
-  mContents <- liftEffect $ LocalStorage.getItem bufferLocalStorageKey
+  mContents <- liftEffect $ LocalStorage.getItem haskellBufferLocalStorageKey
   editorSetValue $ fromMaybe "" mContents
 
 handleAction _ (HandleEditorMessage (Monaco.TextChanged text)) = do
-  liftEffect $ LocalStorage.setItem bufferLocalStorageKey text
+  liftEffect $ LocalStorage.setItem haskellBufferLocalStorageKey text
   assign _compilationResult NotAsked
 
 handleAction _ (ChangeKeyBindings bindings) = do
@@ -99,7 +97,7 @@ handleAction _ SendResultToSimulator = pure unit
 
 handleAction _ (InitHaskellProject contents) = do
   editorSetValue contents
-  liftEffect $ LocalStorage.setItem bufferLocalStorageKey contents
+  liftEffect $ LocalStorage.setItem haskellBufferLocalStorageKey contents
 
 handleAction settings AnalyseContract = compileAndAnalyze settings (WarningAnalysis Loading) $ analyseContract settings
 

marlowe-playground-client/src/StaticData.purs

@@ -1,5 +1,5 @@
 module StaticData
-  ( bufferLocalStorageKey
+  ( haskellBufferLocalStorageKey
   , jsBufferLocalStorageKey
   , demoFiles
   , demoFilesJS
@@ -18,7 +18,6 @@ import Examples.Haskell.Contracts (contractForDifference, couponBondGuaranteed,
 import Examples.JS.Contracts (cfd, couponBondGuaranteed, escrow, example, swap, zeroCouponBond) as JSE
 import Examples.Marlowe.Contracts (contractForDifference, escrow, example, option, swap, zeroCouponBond) as ME
 import LocalStorage as LocalStorage
-import Prim.TypeError (class Warn, Text)
 
 type Label
   = String
@@ -66,10 +65,9 @@ marloweContract ::
   Contents
 marloweContract = "(Some Marlowe Code)"
 
-bufferLocalStorageKey ::
-  Warn (Text "Refactor bufferLocalStorageKey -> haskellBufferLocalStorageKey") =>
+haskellBufferLocalStorageKey ::
   LocalStorage.Key
-bufferLocalStorageKey = LocalStorage.Key "HaskellBuffer"
+haskellBufferLocalStorageKey = LocalStorage.Key "HaskellBuffer"
 
 jsBufferLocalStorageKey ::
   LocalStorage.Key