makeAff -> liftEff

Author: cryogenian

src/Routing/Hash/Aff.purs

@@ -2,14 +2,12 @@ module Routing.Hash.Aff where
 
 import DOM 
 import Control.Monad.Aff
+import Control.Monad.Eff.Class
 import qualified Routing.Hash as R
 
 modifyHash :: forall e. (String -> String) -> Aff (dom :: DOM|e) Unit 
-modifyHash func = makeAff \_ k -> do 
-  R.modifyHash func
-  k unit
+modifyHash func = liftEff $ R.modifyHash func 
 
 setHash :: forall e. String -> Aff (dom :: DOM|e) Unit 
-setHash hash = makeAff \_ k -> do 
-  R.setHash hash
-  k unit
+setHash hash = liftEff $ R.setHash hash
+