diff --git a/ditto-lucid.cabal b/ditto-lucid.cabal
--- a/ditto-lucid.cabal
+++ b/ditto-lucid.cabal
@@ -1,5 +1,5 @@
 Name:                ditto-lucid
-Version:             0.1.0.4
+Version:             0.1.1.0
 Synopsis:            Add support for using lucid with Ditto
 Description:         Ditto is a library for building and validating forms using applicative functors. This package add support for using ditto with lucid.
 License:             BSD3
@@ -24,7 +24,7 @@
   build-depends:
       base >4.5 && <5
     , lucid < 3.0.0
-    , ditto == 0.1.0.*
+    , ditto >= 0.1.1.0 && <= 0.2
     , text >= 0.11 && < 1.3
     , path-pieces
   hs-source-dirs: src
diff --git a/src/Ditto/Lucid/Named.hs b/src/Ditto/Lucid/Named.hs
--- a/src/Ditto/Lucid/Named.hs
+++ b/src/Ditto/Lucid/Named.hs
@@ -149,8 +149,9 @@
 label
   :: (Monad m, Monad f)
   => HtmlT f ()
+  -> String
   -> Form m input error (HtmlT f ()) ()
-label c = G.label mkLabel
+label c name = G.label mkLabel name
   where
     mkLabel i = label_ [for_ (toPathPiece i)] c