diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs
index e18cb6c9..83f2a849 100644
--- a/yesod-form/Yesod/Form/Types.hs
+++ b/yesod-form/Yesod/Form/Types.hs
@@ -102,7 +102,7 @@ data FieldSettings master = FieldSettings
     , fsAttrs :: [(Text, Text)]
     }
 
-instance (a ~ Text) => IsString (FieldSettings a) where
+instance IsString (FieldSettings a) where
     fromString s = FieldSettings (fromString s) Nothing Nothing Nothing []
 
 data FieldView sub master = FieldView
diff --git a/yesod-form/hello-forms.hs b/yesod-form/hello-forms.hs
index d33b5938..a82aa735 100644
--- a/yesod-form/hello-forms.hs
+++ b/yesod-form/hello-forms.hs
@@ -39,8 +39,7 @@ data HelloForms = HelloForms
 instance RenderMessage HelloForms FormMessage where
     renderMessage _ _ = defaultFormMessage
 
-instance Yesod HelloForms where
-    approot _ = ""
+instance Yesod HelloForms
 
 fixType :: Handler a -> Handler a
 fixType = id