haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More stylish

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-05 16:29:54 +02:00
parent 78cc08e39f
commit b530bb9aaa
2 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
yesod/MultiFile.hs
View File

@ -1,23 +1,27 @@
-- FIXME: Depend on the not-yet-released project-template library.
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module MultiFile where module MultiFile where
import Prelude hiding (FilePath) import Control.Monad (unless)
import Data.Conduit (yield, (=$), ($$), awaitForever, Conduit, leftover, await, Sink, MonadResource) import Control.Monad.IO.Class (MonadIO, liftIO)
import Data.Text (Text) import Control.Monad.Trans.Resource (runExceptionT)
import Control.Monad.IO.Class (MonadIO, liftIO) import qualified Data.ByteString as S
import Data.Functor.Identity (runIdentity) import qualified Data.ByteString.Base64 as B64
import qualified Data.ByteString.Base64 as B64 import Data.Conduit (Conduit, MonadResource, Sink,
import qualified Data.ByteString as S await, awaitForever, leftover,
import Control.Monad (unless) yield, ($$), (=$))
import Data.Conduit.List (sinkNull) import Data.Conduit.Binary (sinkFile)
import qualified Data.Conduit.Text as CT import Data.Conduit.List (sinkNull)
import qualified Data.Conduit.List as CL import qualified Data.Conduit.List as CL
import Filesystem.Path.CurrentOS (encode, directory, fromText, (</>), FilePath, encodeString) import qualified Data.Conduit.Text as CT
import Filesystem (createTree) import Data.Functor.Identity (runIdentity)
import Control.Monad.Trans.Resource (runExceptionT) import Data.Text (Text)
import Data.Conduit.Binary (sinkFile) import qualified Data.Text as T
import Data.Text.Encoding (encodeUtf8) import Data.Text.Encoding (encodeUtf8)
import qualified Data.Text as T import Filesystem (createTree)
import Filesystem.Path.CurrentOS (FilePath, directory, encode,
encodeString, fromText, (</>))
import Prelude hiding (FilePath)
unpackMultiFile unpackMultiFile
:: MonadResource m :: MonadResource m

22
yesod/Scaffolding/Scaffolder.hs
View File

@ -1,18 +1,18 @@
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Scaffolding.Scaffolder (scaffold) where module Scaffolding.Scaffolder (scaffold) where
import qualified Data.Text.Lazy as LT import Control.Arrow ((&&&))
import qualified Data.ByteString.Char8 as S import qualified Data.ByteString.Char8 as S
import System.IO import Data.Conduit (runResourceT, yield, ($$))
import Text.Shakespeare.Text (textFile, renderTextUrl) import Data.FileEmbed (embedFile)
import qualified Data.Text as T import Data.String (fromString)
import qualified Data.Text.Lazy.IO as TLIO import qualified Data.Text as T
import Control.Arrow ((&&&)) import qualified Data.Text.Lazy as LT
import Data.FileEmbed (embedFile) import qualified Data.Text.Lazy.IO as TLIO
import Data.String (fromString) import MultiFile (unpackMultiFile)
import MultiFile (unpackMultiFile) import System.IO
import Data.Conduit (yield, ($$), runResourceT) import Text.Shakespeare.Text (renderTextUrl, textFile)
prompt :: (String -> Maybe a) -> IO a prompt :: (String -> Maybe a) -> IO a
prompt f = do prompt f = do