summaryrefslogtreecommitdiffstats
path: root/Regfish/AcidState.hs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2021-08-03 15:37:15 +0200
committertv <tv@krebsco.de>2021-08-03 15:37:15 +0200
commit288051f52e65857a7946e65c5a454b8b35af981b (patch)
treeb88ca4b6571413ddc6a2c307fb3748e99293177f /Regfish/AcidState.hs
parent15e2dbff3d7c0420a483564396306fdd7f81896e (diff)
migrate to GHC 8.10
Diffstat (limited to 'Regfish/AcidState.hs')
-rw-r--r--Regfish/AcidState.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Regfish/AcidState.hs b/Regfish/AcidState.hs
index 6137f0b..d79603d 100644
--- a/Regfish/AcidState.hs
+++ b/Regfish/AcidState.hs
@@ -10,13 +10,13 @@ import Control.Exception (bracket)
import Control.Lens
import Control.Monad.Reader
import Data.Acid
-import Data.Typeable
+import Data.SafeCopy (SafeCopy)
import Regfish.Types
import Network.HTTP.Client (CookieJar)
-- TODO Regfish.Types.CookieJar ?
-withLocalState :: (IsAcidic q, Typeable q) =>
+withLocalState :: (IsAcidic q, SafeCopy q) =>
q -> (AcidState q -> IO a) -> IO a
withLocalState initialState a =
bracket (liftIO $ openLocalState initialState)