aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Files.hs
diff options
context:
space:
mode:
authorpacien2019-12-31 00:40:35 +0100
committerpacien2019-12-31 00:40:35 +0100
commit856d6ea290f6050e813e9cd5634b9e9960995671 (patch)
tree9bd4e99968076923fadc75cdcd0b21077de45b8b /compiler/src/Files.hs
parent9d2b6cf4641cfff08ad556d3a7b24d4d63464eb5 (diff)
downloadldgallery-856d6ea290f6050e813e9cd5634b9e9960995671.tar.gz
compiler: fix subpath generation
Diffstat (limited to 'compiler/src/Files.hs')
-rw-r--r--compiler/src/Files.hs2
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
81fileName (Path (name:_)) = name 81fileName (Path (name:_)) = name
82 82
83subPaths :: Path -> [Path] 83subPaths :: Path -> [Path]
84subPaths (Path path) = map (Path . subsequences) path 84subPaths (Path path) = map Path $ subsequences path
85 85
86pathLength :: Path -> Int 86pathLength :: Path -> Int
87pathLength (Path path) = Data.List.length path 87pathLength (Path path) = Data.List.length path