Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import qualified Prelude as P
- import qualified Data.Text.Lazy.IO as TIO
- import qualified Data.Text.Lazy as T
- import Data.Text.Lazy ( Text )
- import qualified System.Directory as SysDir
- import qualified Data.List as List
- import CtBasic
- import Flow
- main :: P.IO ()
- main = P.sequence_ (List.map makeVectorFiles vectors)
- makeVectorFiles :: Int -> P.IO ()
- makeVectorFiles n =
- let directory :: Text
- directory = T.append "./elm-src/Vector" <| T.pack <| P.show n
- in P.sequence_
- [ SysDir.createDirectoryIfMissing True <| T.unpack directory
- , TIO.writeFile (T.unpack <| T.append directory "/Internal.elm")
- (makeInternalFile n)
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement