Permalink
Browse files

rename 'askL' to 'summon'

The function is more similar to 'access' than 'getL' and friends.
  • Loading branch information...
1 parent 1ae8b8c commit 71d51954fac7d5371c37ab5b7c1fdfbed9d22eba @dag committed Apr 2, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/Happaste/Types.hs
View
@@ -33,12 +33,12 @@ import Web.Routes (RouteT)
import Web.Routes.Happstack ()
import Web.Routes.XMLGenT ()
-askL :: MonadReader r m => Lens r t -> m t
-askL = asks . getL
+summon :: MonadReader r m => Lens r t -> m t
+summon = asks . getL
infixr 4 %.
(%.) :: MonadReader r m => Lens r t -> (t -> b) -> m b
-(%.) = flip liftM . askL
+(%.) = flip liftM . summon
type Key = Integer
@@ -123,13 +123,13 @@ derivePrinterParsers ''Sitemap
type Server = RouteT Sitemap (ServerPartT (ReaderT States (StateT Integer IO)))
instance HasAcidState Server PasteState where
- getAcidState = askL pasteState
+ getAcidState = summon pasteState
instance HasAcidState (XMLGenT Server) PasteState where
- getAcidState = askL pasteState
+ getAcidState = summon pasteState
instance HasAcidState Server HighlighterState where
- getAcidState = askL highlighterState
+ getAcidState = summon highlighterState
instance IntegerSupply Server where
nextInteger = nextInteger'

0 comments on commit 71d5195

Please sign in to comment.