diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-11 15:31:52 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-11 15:31:52 +0200 |
| commit | ff448719b9fa0463639440dcdfcca17294a02d83 (patch) | |
| tree | 27f9127c254adeb4b6319223f5c72416c43f5952 | |
| parent | 56f733ebfb3aaf3cfd5ceb4e4a7240a5697a81c0 (diff) | |
fix INSERT
| -rw-r--r-- | src/Store/Query.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Store/Query.hs b/src/Store/Query.hs index 8cef050..c400206 100644 --- a/src/Store/Query.hs +++ b/src/Store/Query.hs @@ -38,7 +38,7 @@ query (Insert vs c) = do fileName v@(J.Object kvs) = case JM.lookup "$fileName" kvs of - Just (J.String fileName) -> c </> T.unpack fileName + Just (J.String fileName) -> T.unpack fileName _ -> throw (MissingFileName v) mapM_ (\((c, fn), v) -> encodeFile c fn v) vs' S.commit |