Skip to content

Commit 0e3a663

Browse files
committed
fix import of foldl'
1 parent cea6462 commit 0e3a663

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

gibbon-compiler/src/Gibbon/HaskellFrontend.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,6 +13,7 @@ import Data.Foldable ( foldrM )
1313
import Data.Maybe (catMaybes, isJust)
1414
import qualified Data.Map as M
1515
import qualified Data.Set as S
16+
import qualified Data.List as L
1617
import qualified Safe as Sf
1718

1819
import Data.IORef
@@ -1410,7 +1411,7 @@ desugarLinearExts (Prog ddefs fundefs main) = do
14101411
case fn' of
14111412
Ext (LambdaE [(v,ProdTy tys)] bod) -> do
14121413
let ty = Sf.headErr tys
1413-
bod'' = foldl' (\acc i -> gSubstE (ProjE i (VarE v)) (VarE v) acc) bod [0..(length tys)]
1414+
bod'' = L.foldl' (\acc i -> gSubstE (ProjE i (VarE v)) (VarE v) acc) bod [0..(length tys)]
14141415
pure (LetE (v,[],ty,e) bod'')
14151416
_ -> error $ "desugarLinearExts: couldn't desugar " ++ sdoc ex
14161417
ReverseAppE fn arg -> do

0 commit comments

Comments
 (0)