diff options
author | pacien | 2020-05-21 01:02:31 +0200 |
---|---|---|
committer | pacien | 2020-05-21 01:02:31 +0200 |
commit | 478fb074b7101beabc149f01f45061d3aeefe3eb (patch) | |
tree | 2f6cabfdf874c92d2d4fda477809c12a0fe21dcd /compiler | |
parent | 8353b4bb0359eee8d71d9f9cd9f5ded3908dbaa4 (diff) | |
download | ldgallery-478fb074b7101beabc149f01f45061d3aeefe3eb.tar.gz |
compiler: fix typo
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/app/Main.hs b/compiler/app/Main.hs index 48e5644..061fab7 100644 --- a/compiler/app/Main.hs +++ b/compiler/app/Main.hs | |||
@@ -42,7 +42,7 @@ data Options = Options | |||
42 | , outputDir :: FilePath | 42 | , outputDir :: FilePath |
43 | , outputIndex :: FilePath | 43 | , outputIndex :: FilePath |
44 | , galleryConfig :: FilePath | 44 | , galleryConfig :: FilePath |
45 | , rebuilAll :: Bool | 45 | , rebuildAll :: Bool |
46 | , cleanOutput :: Bool | 46 | , cleanOutput :: Bool |
47 | , withViewer :: Maybe FilePath | 47 | , withViewer :: Maybe FilePath |
48 | } deriving (Show, Data, Typeable) | 48 | } deriving (Show, Data, Typeable) |
@@ -73,7 +73,7 @@ options = Options | |||
73 | &= name "gallery-config" | 73 | &= name "gallery-config" |
74 | &= explicit | 74 | &= explicit |
75 | &= help "Gallery configuration file (default=<input-dir>/gallery.yaml)" | 75 | &= help "Gallery configuration file (default=<input-dir>/gallery.yaml)" |
76 | , rebuilAll = False | 76 | , rebuildAll = False |
77 | &= name "r" | 77 | &= name "r" |
78 | &= name "rebuild-all" | 78 | &= name "rebuild-all" |
79 | &= explicit | 79 | &= explicit |
@@ -130,7 +130,7 @@ main = | |||
130 | (galleryOutputDir opts) | 130 | (galleryOutputDir opts) |
131 | (outputIndex opts) | 131 | (outputIndex opts) |
132 | [outputDir opts] | 132 | [outputDir opts] |
133 | (rebuilAll opts) | 133 | (rebuildAll opts) |
134 | (cleanOutput opts) | 134 | (cleanOutput opts) |
135 | where | 135 | where |
136 | checkDistinctPaths :: FilePath -> FilePath -> IO () | 136 | checkDistinctPaths :: FilePath -> FilePath -> IO () |