diff options
Diffstat (limited to 'Regfish/AcidState.hs')
| -rw-r--r-- | Regfish/AcidState.hs | 4 |
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) |