Update to Purescript 13.8

Author: csicar

src/Purepur/Generate.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
+
 module Purepur.Generate where
 
 import Control.Applicative
@@ -29,7 +30,7 @@ import Prelude
 
 generateTest :: (FilePath, D.Module) -> Except ParseError (P.ModuleName, T.Text)
 generateTest (filePath, D.Module (P.ModuleName sourceModName) maybeComments declarations _) = do
-  let name = P.ModuleName $ P.ProperName "Test" : P.ProperName "DocTest" : sourceModName
+  let name = P.moduleNameFromString $ "Test.DocTest." <> sourceModName
   moduleComment <- generateTestFromMarkdown (P.runModuleName name) maybeComments
   declarationComments <- mconcat <$> mapM generateTestForDeclaration declarations
 
@@ -71,25 +72,23 @@ generateTestFromMarkdownFile (path, textContent) = do
   where
     moduleNameFromPath :: FilePath -> P.ModuleName
     moduleNameFromPath filePath =
-      P.ModuleName $
-        P.ProperName "Test"
-        : P.ProperName "MarkdownExamples"
-        : fmap P.ProperName 
+      P.moduleNameFromString $
+        "Test.MarkdownExamples."
+          <> T.intercalate
+            "."
             ( filter (/= "")
-            $ T.splitOn "/"
-            $ T.replace "." ""
-            $ T.pack (pTraceShowId filePath)
+                $ T.splitOn "/"
+                $ T.replace "." ""
+                $ T.pack (pTraceShowId filePath)
             )
 
 -- generates a File, that imports all others tests and runs them.
 generateSummaryFile :: [P.ModuleName] -> (PurepurDocument, P.ModuleName)
-generateSummaryFile testModules = (doc, P.ModuleName [P.ProperName "DocTest"])
+generateSummaryFile testModules = (doc, P.moduleNameFromString "DocTest")
   where
     doc :: PurepurDocument
     doc = mconcat $ documentFromModuleName <$> testModules
-
     documentFromModuleName :: P.ModuleName -> PurepurDocument
     documentFromModuleName mod =
       documentFromImport (mod, P.Implicit, Just mod)
-      <>
-      documentFromSpec (ReferenceSpec $ P.mkQualified (P.Ident "main") mod)
+        <> documentFromSpec (ReferenceSpec $ P.mkQualified (P.Ident "main") mod)

stack.yaml

@@ -15,7 +15,8 @@
 # resolver:
 #  name: custom-snapshot
 #  location: "./custom-snapshot.yaml"
-resolver: lts-13.12
+resolver: lts-13.26
+
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.
@@ -40,13 +41,20 @@ packages:
 # Dependency packages to be pulled from upstream that are not in the resolver
 # (e.g., acme-missiles-0.3)
 extra-deps:
--  git: https://github.com/purescript/purescript
-   commit: 738aaa2f21097c7f18aa8100b16ae52316addb04
+- happy-1.19.9
+- language-javascript-0.7.0.0
+- purescript-0.13.8
 - network-3.0.1.1
-- pipes-http-1.0.5
-- ghc-lib-parser-8.10.1.20200412
+- these-1.0.1
+- semialign-1
 # Override default flag values for local packages and extra-deps
 # flags: {}
+flags:
+  aeson-pretty:
+    lib-only: true
+  these:
+    assoc: false
+    quickcheck: false
 
 # Extra package databases containing global packages
 # extra-package-dbs: []

test/Spec.hs

@@ -12,7 +12,7 @@ import qualified Language.PureScript.Interactive.Types as Psci
 main :: IO ()
 main = hspec $
   describe "Parse Comment" $ do
-    let importT = Command $ Psci.Import (Purs.ModuleName [Purs.ProperName "T"], AST.Implicit, Nothing)
+    let importT = Command $ Psci.Import (Purs.moduleNameFromString "T", AST.Implicit, Nothing)
 
     it "simple output" $ 
       parseInfoBlock "asd" `shouldBe` Right [ExpectedOutput "asd"]