yesod-routes-flow 1.1 → 1.1.1

raw patch · 2 files changed

+9/−10 lines, 2 files

Files

• Yesod/Routes/Flow/Generator.hs +8/−9
• yesod-routes-flow.cabal +1/−1

@@ -84,9 +84,8 @@         in ([], Right $ intercalate "\n" $ map mkLine jsNames)       where         pieces = DT.splitOn "/" routeString-        variables = snd $ foldl' (\(i,prev) typ -> (i+1, prev <> [("a" <> tshow i, typ)]))-                             (0::Int, [])-                             (filter isVariable  pieces)+        variables = zip variableNames (filter isVariable pieces)+          where variableNames = DT.cons <$> ['a'..'z'] <*> ("" : variableNames)         mkLine jsName = "  " <> jsName <> "("           <> csvArgs variables           <> "): string { "@@ -122,12 +121,12 @@         memberInitFromParent (slot, klass) = "  this." <> slot <> " = new " <> klass <> "(root);"         memberLinkFromParent (slot, klass) = "" <> slot <> ": " <> klass <> ";"         linkFromParent = (pref, resourceClassName)-        resourceClassDef = "class " <>  resourceClassName  <> " {\n"-          <> "  " <> "root: string;\n"-          <> intercalate "\n" childMembers-          <> "  " <> parentMembers memberLinkFromParent-          <> "\n"-          <> "  constructor(root: string){\n"+        resourceClassDef =+            "class " <> resourceClassName <> " {\n"+          <> intercalate "\n" childMembers <> "\n"+          <> parentMembers memberLinkFromParent <> "\n"+          <> "  root: string;\n"+          <> "  constructor(root: string) {\n"           <> "    this.root = root;\n  "           <> parentMembers memberInitFromParent           <> "\n  }\n"

@@ -1,5 +1,5 @@ name:                yesod-routes-flow-version:             1.1+version:             1.1.1 synopsis:            Generate Flow routes for Yesod description:         Parse the Yesod routes data structure and generate routes that can be used with Flow. homepage:            https://github.com/frontrowed/yesod-routes-flow