diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-09-22 15:24:10 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-09-23 04:36:59 +0200 |
| commit | bd16cc2902800932f58a34647e224734aa3647cd (patch) | |
| tree | 22a84631d86f2dadcec000360d8f2f5bc340c53b /guix/import | |
| parent | 10da14c5ec4da71d9d512e9e96a5115631a7c793 (diff) | |
| download | guix-patches-bd16cc2902800932f58a34647e224734aa3647cd.tar guix-patches-bd16cc2902800932f58a34647e224734aa3647cd.tar.gz | |
import: Fix docstring typoes.
* guix/import/cabal.scm (cabal-flags->alist): Fix typo in docstring.
* guix/import/stackage.scm (lts-info-ghc-version): Likewise.
* guix/scripts/import/hackage.scm (show-help): Likewise.
Diffstat (limited to 'guix/import')
| -rw-r--r-- | guix/import/cabal.scm | 2 | ||||
| -rw-r--r-- | guix/import/stackage.scm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/guix/import/cabal.scm b/guix/import/cabal.scm index 7dfe771e41..da00019297 100644 --- a/guix/import/cabal.scm +++ b/guix/import/cabal.scm @@ -718,7 +718,7 @@ If #f use the function 'port-filename' to obtain it." (dependencies cabal-custom-setup-dependencies)) ; list of <cabal-dependency> (define (cabal-flags->alist flag-list) - "Retrun an alist associating the flag name to its default value from a + "Return an alist associating the flag name to its default value from a list of <cabal-flag> objects." (map (lambda (flag) (cons (cabal-flag-name flag) (cabal-flag-default flag))) flag-list)) diff --git a/guix/import/stackage.scm b/guix/import/stackage.scm index e04073d193..ee12108815 100644 --- a/guix/import/stackage.scm +++ b/guix/import/stackage.scm @@ -42,12 +42,12 @@ (define %stackage-url "http://www.stackage.org") (define (lts-info-ghc-version lts-info) - "Retruns the version of the GHC compiler contained in LTS-INFO." + "Returns the version of the GHC compiler contained in LTS-INFO." (and=> (assoc-ref lts-info "snapshot") (cut assoc-ref <> "ghc"))) (define (lts-info-packages lts-info) - "Retruns the alist of packages contained in LTS-INFO." + "Returns the alist of packages contained in LTS-INFO." (or (assoc-ref lts-info "packages") '())) (define (leave-with-message fmt . args) |