X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FDispatcher%2FInternal.hs;fp=Network%2FHTTP%2FLucu%2FDispatcher%2FInternal.hs;h=3699f700fd82c2413bd47b54e82d7b4ee2c8a072;hp=6e088df8061178f32ffd492187502d4206def0cf;hb=243b99439640480fc148d2e175247dacce04a222;hpb=9ee424cdca5d3030f8ef38d82b1c59d83fd6a98d

diff --git a/Network/HTTP/Lucu/Dispatcher/Internal.hs b/Network/HTTP/Lucu/Dispatcher/Internal.hs
index 6e088df..3699f70 100644
--- a/Network/HTTP/Lucu/Dispatcher/Internal.hs
+++ b/Network/HTTP/Lucu/Dispatcher/Internal.hs
@@ -58,7 +58,7 @@ class HostMapper α where
     hostMap = HMap
 
 -- |Container type for the 'HostMapper' type class.
-data HostMap = ∀α. HostMapper α ⇒ HMap α
+data HostMap = ∀α. HostMapper α ⇒ HMap !α
 
 -- |Class of maps from resource 'Path' to 'Resource'.
 --
@@ -77,7 +77,7 @@ class ResourceMapper α where
     resourceMap = RMap
 
 -- |Container type for the 'ResourceMapper' type class.
-data ResourceMap = ∀α. ResourceMapper α ⇒ RMap α
+data ResourceMap = ∀α. ResourceMapper α ⇒ RMap !α
 
 -- |'ResourceTree' is an opaque structure which a map from resource
 -- 'Path' to 'ResourceNode'.