broken state monad

This commit is contained in:
weiss
2020-04-22 15:35:03 +02:00
parent fbe7b56be0
commit afc2af5cdb
4 changed files with 76 additions and 69 deletions

View File

@@ -29,7 +29,7 @@ bundle = do
source <- createMonolithicSourceWithMode parseMode sourcePath
credentials <- readCredentials "credentials.json"
putStrLn source
-- putStrLn source
let file = "Bundled.hs"
writeFile file $ "{-# LANGUAGE ScopedTypeVariables, LambdaCase, MultiWayIf #-}\n" ++ source