web: Refactor major style

1 files changed, 0 insertions, 41 deletions

diff --git a/fig-web/src/Fig/Web/State.hs b/fig-web/src/Fig/Web/State.hs
deleted file mode 100644
index 11e0ece..0000000
--- a/fig-web/src/Fig/Web/State.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# Language TemplateHaskell #-}
-
-module Fig.Web.State where
-
-import Control.Lens.TH (makeLensesFor)
-import Control.Lens ((<>=))
-import Control.Monad.State (runStateT)
-
-import Fig.Prelude
-
-import qualified Data.IORef as IORef
-
-newtype State = State
-  { buffer :: Text
-  }
-makeLensesFor [("buffer", "buffer")] ''State
-
-defaultState :: State
-defaultState = State
-  { buffer = ""
-  }
-
-type StateRef = IORef.IORef State
-
-stateRef :: IO StateRef
-stateRef = IORef.newIORef defaultState
-
-withState ::
-  MonadIO m' =>
-  StateRef ->
-  (forall m. (MonadIO m, MonadState State m) => m a) ->
-  m' a
-withState ref f = do
-  s <- liftIO $ IORef.readIORef ref
-  (res, s') <- liftIO $ runStateT f s
-  liftIO $ IORef.writeIORef ref s'
-  pure res
-
-sayHi :: StateRef -> IO ()
-sayHi ref = withState ref do
-  buffer <>= "hi"