hsx 0.10.3 → 0.10.4

raw patch · 2 files changed

+5/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hsx.cabal +1/−1
• src/HSX/Transform.hs +4/−3

@@ -1,5 +1,5 @@ Name:                   hsx-Version:                0.10.3+Version:                0.10.4 License:                BSD3 License-File:           LICENSE Author:                 Niklas Broberg, Joel Bjornson

@@ -331,16 +331,17 @@         return $ ParComp e' stmtss'     Proc s pat rhs          -> do         let -- First rename regular patterns-            (ps, rnpss)  = unzip $ renameRPats [pat]+            ([p], [rnps])  = unzip $ renameRPats [pat]             -- ... group them up to one big tuple-            (rns, rps) = unzip (concat rnpss)+            (rns, rps) = unzip rnps             alt1 = alt s (pTuple rps) rhs             texp = varTuple rns             -- ... and put it all in a case expression, which             -- can then be transformed in the normal way.             e = if null rns then rhs else caseE texp [alt1]         rhs' <- transformExpM e-        return $ Lambda s ps rhs'+        return $ Proc s p rhs'+     -- All other expressions simply transform their immediate subterms.     InfixApp e1 op e2 -> transform2exp e1 e2                                 (\e1 e2 -> InfixApp e1 op e2)