diff options
| author | pacien | 2019-12-31 00:40:35 +0100 |
|---|---|---|
| committer | pacien | 2019-12-31 00:40:35 +0100 |
| commit | 856d6ea290f6050e813e9cd5634b9e9960995671 (patch) | |
| tree | 9bd4e99968076923fadc75cdcd0b21077de45b8b /compiler/src/Files.hs | |
| parent | 9d2b6cf4641cfff08ad556d3a7b24d4d63464eb5 (diff) | |
| download | ldgallery-856d6ea290f6050e813e9cd5634b9e9960995671.tar.gz | |
compiler: fix subpath generation
Diffstat (limited to 'compiler/src/Files.hs')
| -rw-r--r-- | compiler/src/Files.hs | 2 |
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 | |||
| 81 | fileName (Path (name:_)) = name | 81 | fileName (Path (name:_)) = name |
| 82 | 82 | ||
| 83 | subPaths :: Path -> [Path] | 83 | subPaths :: Path -> [Path] |
| 84 | subPaths (Path path) = map (Path . subsequences) path | 84 | subPaths (Path path) = map Path $ subsequences path |
| 85 | 85 | ||
| 86 | pathLength :: Path -> Int | 86 | pathLength :: Path -> Int |
| 87 | pathLength (Path path) = Data.List.length path | 87 | pathLength (Path path) = Data.List.length path |