typesafe-precure 0.3.0.0 → 0.3.1.0

raw patch · 3 files changed

+53/−16 lines, 3 files

Files

• src/ACME/PreCure/Textbook/KirakiraALaMode/Instances.hs +37/−12
• src/ACME/PreCure/Textbook/KirakiraALaMode/Words.hs +15/−3
• typesafe-precure.cabal +1/−1

@@ -24,22 +24,42 @@   [t| (SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact LionIce, SweetsPact CatMacaron, SweetsPact DogChocolate) |]   [t| (CureWhip, CureCustard, CureGelato, CureMacaron, CureChocolat) |]   [| (CureWhip, CureCustard, CureGelato, CureMacaron, CureChocolat) |]-  ( kirakiraALaModeTransformationSpeech-      [ introducesHerselfAs_CureWhip-      , introducesHerselfAs_CureCustard-      , introducesHerselfAs_CureGelato-      , introducesHerselfAs_CureMacaron-      , introducesHerselfAs_CureChocolat-      ]-    ++ [groupName_KirakiraALaMode ++ "！"]-  )+  (kirakiraALaModeTransformationSpeechFeaturing introducesHerselfAs_CureWhip)  transformationInstance+  [t| (Himari, Ichika, Aoi, Yukari, Akira) |]+  [t| (SweetsPact SquirrelPudding, SweetsPact RabbitShortcake, SweetsPact LionIce, SweetsPact CatMacaron, SweetsPact DogChocolate) |]+  [t| (CureCustard, CureWhip, CureGelato, CureMacaron, CureChocolat) |]+  [| (CureCustard, CureWhip, CureGelato, CureMacaron, CureChocolat) |]+  (kirakiraALaModeTransformationSpeechFeaturing introducesHerselfAs_CureCustard)++transformationInstance+  [t| (Aoi, Ichika, Himari, Yukari, Akira) |]+  [t| (SweetsPact LionIce, SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact CatMacaron, SweetsPact DogChocolate) |]+  [t| (CureGelato, CureWhip, CureCustard, CureMacaron, CureChocolat) |]+  [| (CureGelato, CureWhip, CureCustard, CureMacaron, CureChocolat) |]+  (kirakiraALaModeTransformationSpeechFeaturing introducesHerselfAs_CureGelato)++transformationInstance+  [t| (Yukari, Ichika, Himari, Aoi, Akira) |]+  [t| (SweetsPact CatMacaron, SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact LionIce, SweetsPact DogChocolate) |]+  [t| (CureMacaron, CureWhip, CureCustard, CureGelato, CureChocolat) |]+  [| (CureMacaron, CureWhip, CureCustard, CureGelato, CureChocolat) |]+  (kirakiraALaModeTransformationSpeechFeaturing introducesHerselfAs_CureMacaron)++transformationInstance+  [t| (Akira, Ichika, Himari, Aoi, Yukari) |]+  [t| (SweetsPact DogChocolate, SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact LionIce, SweetsPact CatMacaron) |]+  [t| (CureChocolat, CureWhip, CureCustard, CureGelato, CureMacaron) |]+  [| (CureChocolat, CureWhip, CureCustard, CureGelato, CureMacaron) |]+  (kirakiraALaModeTransformationSpeechFeaturing introducesHerselfAs_CureChocolat)++transformationInstance   [t| (Ichika, Himari, Aoi) |]   [t| (SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact LionIce) |]   [t| (CureWhip, CureCustard, CureGelato) |]   [| (CureWhip, CureCustard, CureGelato) |]-  ( kirakiraALaModeTransformationSpeech+  ( kirakiraALaModeTransformationSpeechOf       [ introducesHerselfAs_CureWhip       , introducesHerselfAs_CureCustard       , introducesHerselfAs_CureGelato@@ -51,7 +71,7 @@   [t| (SweetsPact RabbitShortcake, SweetsPact SquirrelPudding, SweetsPact LionIce, SweetsPact CatMacaron) |]   [t| (CureWhip, CureCustard, CureGelato, CureMacaron) |]   [| (CureWhip, CureCustard, CureGelato, CureMacaron) |]-  ( kirakiraALaModeTransformationSpeech+  ( kirakiraALaModeTransformationSpeechOf       [ introducesHerselfAs_CureWhip       , introducesHerselfAs_CureCustard       , introducesHerselfAs_CureGelato@@ -64,12 +84,17 @@   [t| (SweetsPact CatMacaron, SweetsPact DogChocolate) |]   [t| (CureMacaron, CureChocolat) |]   [| (CureMacaron, CureChocolat) |]-  ( kirakiraALaModeTransformationSpeech+  ( kirakiraALaModeTransformationSpeechOf       [ introducesHerselfAs_CureMacaron       , introducesHerselfAs_CureChocolat       ]   ) +purificationInstance [t| CureWhip |]     [t| CandyRod |] ["キラキラキラルン！", "ホイップ・デコレーション！"]+purificationInstance [t| CureCustard |]  [t| CandyRod |] ["キラキラキラルン！", "カスタード・イリュージョン！"]+purificationInstance [t| CureGelato |]   [t| CandyRod |] ["キラキラキラルン！", "ジェラート・シェイク！"]+purificationInstance [t| CureMacaron |]  [t| CandyRod |] ["キラキラキラルン！", "マカロン・ジュリエンヌ！", "にゃーお♥"]+purificationInstance [t| CureChocolat |] [t| CandyRod |] ["キラキラキラルン！", "ショコラ・アロマーゼ！"]  purificationInstance   [t| (CureWhip, CureCustard, CureGelato, CureMacaron, CureChocolat) |]

@@ -12,7 +12,19 @@ introducesHerselfAs_CureMacaron  = ["マカロン！", "美しさとトキメキを！", "レッツ・ラ・まぜまぜ！", "キュアマカロン！できあがり！"] introducesHerselfAs_CureChocolat = ["チョコレート！", "強さと愛を！", "レッツ・ラ・まぜまぜ！", "キュアショコラ！できあがり！"] -kirakiraALaModeTransformationSpeech :: [[String]] -> [String]-kirakiraALaModeTransformationSpeech [] = error "No transforamation speech given!"-kirakiraALaModeTransformationSpeech al@(first:_) =+kirakiraALaModeTransformationSpeechOf :: [[String]] -> [String]+kirakiraALaModeTransformationSpeechOf [] = error "No transforamation speech given!"+kirakiraALaModeTransformationSpeechOf al@(first:_) =   cureALaModeDecoration : init first ++ map last al++kirakiraALaModeTransformationSpeechFeaturing :: [String] -> [String]+kirakiraALaModeTransformationSpeechFeaturing first =+  cureALaModeDecoration : init first ++ allDekiagari ++ [groupName_KirakiraALaMode ++ "！"]+  where+    allDekiagari = map last+      [ introducesHerselfAs_CureWhip+      , introducesHerselfAs_CureCustard+      , introducesHerselfAs_CureGelato+      , introducesHerselfAs_CureMacaron+      , introducesHerselfAs_CureChocolat+      ]

@@ -1,5 +1,5 @@ name:                typesafe-precure-version:             0.3.0.0+version:             0.3.1.0 synopsis:            Type-safe transformations and purifications of PreCures (Japanese Battle Heroine) description:         See README.md for details. homepage:            https://github.com/igrep/typesafe-precure#readme