aboutsummaryrefslogtreecommitdiff
path: root/compiler/app/ViewerDist.hs
diff options
context:
space:
mode:
authorzeroinformatique2021-06-29 17:23:22 +0200
committerGitHub2021-06-29 17:23:22 +0200
commit1cf6dd4243a72935d382d62bb2a79ff13186e70d (patch)
tree8f6447aa8dc0802eea625fd61fc8ac895e421b4f /compiler/app/ViewerDist.hs
parent622af23bb3ce8d6dc8dc1d658cb7f01bc905ef2c (diff)
parent083f0658399afc206ea0751415d54a50d2aa4fe9 (diff)
downloadldgallery-1cf6dd4243a72935d382d62bb2a79ff13186e70d.tar.gz
Merge pull request #294 from ldgallery/pacien-20210629-portable-viewer-dist
compiler: portable viewer dist
Diffstat (limited to 'compiler/app/ViewerDist.hs')
-rw-r--r--compiler/app/ViewerDist.hs39
1 files changed, 39 insertions, 0 deletions
diff --git a/compiler/app/ViewerDist.hs b/compiler/app/ViewerDist.hs
new file mode 100644
index 0000000..2b80ffc
--- /dev/null
+++ b/compiler/app/ViewerDist.hs
@@ -0,0 +1,39 @@
1-- ldgallery - A static generator which turns a collection of tagged
2-- pictures into a searchable web gallery.
3--
4-- Copyright (C) 2021 Pacien TRAN-GIRARD
5--
6-- This program is free software: you can redistribute it and/or modify
7-- it under the terms of the GNU Affero General Public License as
8-- published by the Free Software Foundation, either version 3 of the
9-- License, or (at your option) any later version.
10--
11-- This program is distributed in the hope that it will be useful,
12-- but WITHOUT ANY WARRANTY; without even the implied warranty of
13-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14-- GNU Affero General Public License for more details.
15--
16-- You should have received a copy of the GNU Affero General Public License
17-- along with this program. If not, see <https://www.gnu.org/licenses/>.
18
19{-# LANGUAGE CPP #-}
20
21module ViewerDist where
22
23#ifndef FLAG_PORTABLE
24
25import Paths_ldgallery_compiler (getDataFileName)
26
27viewerDistPath = getDataFileName "viewer"
28
29#else
30
31import Data.Functor ((<&>))
32import System.FilePath (takeDirectory, (</>))
33import System.Environment (getExecutablePath)
34
35viewerDistPath = fmap takeDirectory getExecutablePath <&> (</> "viewer")
36
37#endif
38
39viewerDistPath :: IO FilePath