From 856d6ea290f6050e813e9cd5634b9e9960995671 Mon Sep 17 00:00:00 2001
From: pacien
Date: Tue, 31 Dec 2019 00:40:35 +0100
Subject: compiler: fix subpath generation

---
 compiler/src/Files.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/src/Files.hs')

diff --git a/compiler/src/Files.hs b/compiler/src/Files.hs
index 457f1da..ed082ba 100644
--- a/compiler/src/Files.hs
+++ b/compiler/src/Files.hs
@@ -81,7 +81,7 @@ fileName :: Path -> FileName
 fileName (Path (name:_)) = name
 
 subPaths :: Path -> [Path]
-subPaths (Path path) = map (Path . subsequences) path
+subPaths (Path path) = map Path $ subsequences path
 
 pathLength :: Path -> Int
 pathLength (Path path) = Data.List.length path
-- 
cgit v1.2.3