@@ -53,13 +53,8 @@ instance ToParam (MatrixParam "lang" String) where
53 "Get the greeting message selected language. Default is en."
53 "Get the greeting message selected language. Default is en."
56−instance ToSample () Greet where
56+instance ToSample () () where
57− toSample _ = Just $ Greet "Hello, haskeller!"
57+ toSample _ = Just ()
60− [ ("If you use ?capital=true", Greet "HELLO, HASKELLER")
61− , ("If you use ?capital=false", Greet "Hello, haskeller")
64instance ToSample Greet Greet where
59instance ToSample Greet Greet where
65 toSample _ = Just $ Greet "Hello, haskeller!"
60 toSample _ = Just $ Greet "Hello, haskeller!"