diff --git a/test/Text/Shakespeare/I18NSpec.hs b/test/Text/Shakespeare/I18NSpec.hs index c33c205..c170ee6 100644 --- a/test/Text/Shakespeare/I18NSpec.hs +++ b/test/Text/Shakespeare/I18NSpec.hs @@ -35,27 +35,3 @@ mkMessage "(YesodSubApp master) => SubApp master" "other-messages" "en" mkMessage "Test" "test-messages" "en" - - - -{- -spec :: SpecWith - (Arg - (Language.Haskell.TH.Syntax.Q [Language.Haskell.TH.Syntax.Dec])) -spec = do - describe "mkMessage tests" $ do - it "works for not parameterized datatypes" $ do - mkMessage "Test" "test-messages" "en" - - it "works for parameterized with just one parameter datatypes" $ do - mkMessage "(YesodSubApp master) => SubApp master" "test-messages" "en" --} - - -{- -spec :: Monad m => m () -spec = return () - - --} -