1 files changed, 1 insertions, 1 deletions

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