19 lines
555 B
Haskell
19 lines
555 B
Haskell
|
module JS (
|
||
|
|
install
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Blog (Blog(..))
|
||
|
|
import qualified Blog (get)
|
||
|
|
import Control.Monad.IO.Class (MonadIO(..))
|
||
|
|
import Control.Monad.Reader (ReaderT)
|
||
|
|
import Paths_hablo (getDataFileName)
|
||
|
|
import System.Directory (copyFile, createDirectoryIfMissing)
|
||
|
|
import System.FilePath ((</>))
|
||
|
|
|
||
|
|
install :: ReaderT Blog IO ()
|
||
|
|
install = do
|
||
|
|
source <- liftIO $ getDataFileName "js/main.js"
|
||
|
|
destinationDir <- (</> "js") <$> Blog.get root
|
||
|
|
liftIO $ createDirectoryIfMissing False destinationDir
|
||
|
|
liftIO $ copyFile source (destinationDir </> "main.js")
|