yesod-routes-flow 1.0 → 1.0.1

raw patch · 2 files changed

+6/−4 lines, 2 filesdep +system-filepath

Dependencies added: system-filepath

Files

• Yesod/Routes/Flow/Generator.hs +4/−3
• yesod-routes-flow.cabal +2/−1

@@ -3,12 +3,13 @@     , genFlowRoutes     ) where -import ClassyPrelude+import ClassyPrelude hiding (FilePath) import Data.List (nubBy) import Data.Function (on) import Data.Text (dropWhileEnd) import qualified Data.Text as DT-import Filesystem (createTree)+import Filesystem (createTree, writeTextFile)+import Filesystem.Path (FilePath, directory) import qualified Data.Char as DC import Yesod.Routes.TH.Types     -- ( ResourceTree(..),@@ -24,7 +25,7 @@ genFlowRoutesPrefix :: [String] -> [String] -> [ResourceTree String] -> FilePath -> Text -> IO () genFlowRoutesPrefix routePrefixes elidedPrefixes resourcesApp fp prefix = do     createTree $ directory fp-    writeFile fp routesCs+    writeTextFile fp routesCs   where     routesCs =         let res = (resToCoffeeString Nothing "" $ ResourceParent "paths" False [] hackedTree)

@@ -1,5 +1,5 @@ name:                yesod-routes-flow-version:             1.0+version:             1.0.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@@ -37,6 +37,7 @@                         base < 5,                         classy-prelude >= 0.7,                         system-fileio,+                        system-filepath >= 0.4,                         text,                         yesod-core >= 1.4 && < 2.0   -- hs-source-dirs: