Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

rename 'askL' to 'summon'

The function is more similar to 'access' than 'getL' and friends.
  • Loading branch information...
commit 71d51954fac7d5371c37ab5b7c1fdfbed9d22eba 1 parent 1ae8b8c
@dag authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/Happaste/Types.hs
View
12 src/Happaste/Types.hs
@@ -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'
Please sign in to comment.
Something went wrong with that request. Please try again.