yesod-purescript 0.0.4.6 → 0.0.4.7

raw patch · 2 files changed

+14/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Yesod/PureScript.hs +13/−2
• yesod-purescript.cabal +1/−1

@@ -32,7 +32,6 @@ import Control.Monad (forever, forM, forM_) import Control.Monad.IO.Class (liftIO) import Data.Either (rights)-import Data.List (isSuffixOf) import Data.Maybe (catMaybes, mapMaybe) import Data.Text (Text) import Data.Time (UTCTime, getCurrentTime)@@ -247,6 +246,7 @@     liftIO $ ensureWatchStarted me     getPureScriptInfo me + getPureScriptCompiledR p = do     me <- getYesod     liftIO $ ensureWatchStarted me@@ -299,10 +299,21 @@         return newstate  +-- | Calculate relative path.+-- Both parameters must be absolute paths, the first one must be directory path.+relpath :: FSP.FilePath -> FSP.FilePath -> FSP.FilePath+relpath base absolute =+    case FSP.stripPrefix base absolute of+        Just _p -> _p+        Nothing -> ".." </> (relpath (FSP.parent base) absolute)++ -- | Executed on file change. Updates loaded modules MVar-ed in PureScriptSite. handleFileEvent :: PureScriptSite -> SFN.Event -> IO () handleFileEvent pureScriptSite event = do-        let fp = SFN.eventPath event+        -- Workaround for incorrect behaviour of Filesystem.FilePath module.+        current <- FS.getWorkingDirectory >>= \_d -> return (FSP.collapse (_d </> "."))+        let fp = relpath current (SFN.eventPath event)         let mext = FSP.extension fp         let _upsert = do                 _parsed <- parseFile fp

@@ -1,5 +1,5 @@ name:                yesod-purescript-version:             0.0.4.6+version:             0.0.4.7 synopsis:            PureScript integration for Yesod description:         PureScript is an awesome statically typed language that compiles to JS and runs in your browser, and this module makes it easier to use PureScript in Yesod. homepage:            https://github.com/mpietrzak/yesod-purescript